File:of Tape: Test/Tests/LISTING-FILES8
(Source file text)
/DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-40 013743 0050 AND 0050 /13743-0050 @( 013744 1121 TAD 0121 /13744-1121 IQ 013745 0052 AND 0052 /13745-0052 @* 013746 1612 TAD I 3612 /13746-1612 NJ 013747 0055 AND 0055 /13747-0055 @- 013750 1030 TAD 0030 /13750-1030 HX 013751 0020 AND 0020 /13751-0020 @P 013752 5314 JMP 3714 /13752-5314 +L 013753 0060 AND 0060 /13753-0060 @0 013754 1131 TAD 0131 /13754-1131 IY 013755 0062 AND 0062 /13755-0062 @2 013756 1612 TAD I 3612 /13756-1612 NJ 013757 0065 AND 0065 /13757-0065 @5 013760 1031 TAD 0031 /13760-1031 HY 013761 0020 AND 0020 /13761-0020 @P 013762 1616 TAD I 3616 /13762-1616 NN 013763 0014 AND 0014 /13763-0014 @L 013764 1030 TAD 0030 /13764-1030 HX 013765 0020 AND 0020 /13765-0020 @P 013766 5314 JMP 3714 /13766-5314 +L 013767 0014 AND 0014 /13767-0014 @L 013770 1030 TAD 0030 /13770-1030 HX 013771 0020 AND 0020 /13771-0020 @P 013772 7224 CLA CML RAL /13772-7224 :T 013773 0014 AND 0014 /13773-0014 @L 013774 1031 TAD 0031 /13774-1031 HY 013775 0020 AND 0020 /13775-0020 @P 013776 1616 TAD I 3616 /13776-1616 NN 013777 1000 TAD 0000 /13777-1000 H@ 014000 0000 AND 0000 /14000-0000 @@ 014001 1001 TAD 0001 /14001-1001 HA 014002 0000 AND 0000 /14002-0000 @@ 014003 0324 AND 4124 /14003-0324 CT 014004 0000 AND 0000 /14004-0000 @@ 014005 0327 AND 4127 /14005-0327 CW 014006 0003 AND 0003 /14006-0003 @C 014007 0170 AND 0170 /14007-0170 A8 014010 0006 AND 0006 /14010-0006 @F 014011 0332 AND 4132 /14011-0332 CZ 014012 0005 AND 0005 /14012-0005 @E 014013 0336 AND 4136 /14013-0336 C^ 014014 0004 AND 0004 /14014-0004 @D 014015 0341 AND 4141 /14015-0341 C! 014016 0002 AND 0002 /14016-0002 @B 014017 0165 AND 0165 /14017-0165 A5 014020 0001 AND 0001 /14020-0001 @A 014021 0165 AND 0165 /14021-0165 A5 014022 1617 TAD I 4017 /14022-1617 NO 014023 0165 AND 0165 /14023-0165 A5 014024 7213 CLA IAC RTR /14024-7213 :K 014025 0165 AND 0165 /14025-0165 A5 014026 7223 CLA CML IAC BSW /14026-7223 :S 014027 0351 AND 4151 /14027-0351 C) 014030 1612 TAD I 4012 /14030-1612 NJ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-41 014031 0300 MCOD12, AND 4100 /14031-0300 C@ 014032 7200 CLA /14032-7200 :@ 014033 0321 AND 4121 /14033-0321 CQ 014034 0000 AND 0000 /14034-0000 @@ 014035 0321 AND 4121 /14035-0321 CQ 014036 7275 7275 /14036-7275 := 014037 0321 AND 4121 /14037-0321 CQ 014040 7213 CLA IAC RTR /14040-7213 :K 014041 0307 AND 4107 /14041-0307 CG 014042 7223 CLA CML IAC BSW /14042-7223 :S 014043 0321 AND 4121 /14043-0321 CQ 014044 0001 AND 0001 /14044-0001 @A 014045 0321 AND 4121 /14045-0321 CQ 014046 0002 AND 0002 /14046-0002 @B 014047 0313 AND 4113 /14047-0313 CK 014050 0003 AND 0003 /14050-0003 @C 014051 0010 AND 0010 /14051-0010 @H 014052 0004 AND 0004 /14052-0004 @D 014053 0010 AND 0010 /14053-0010 @H 014054 0005 AND 0005 /14054-0005 @E 014055 0107 AND 0107 /14055-0107 AG 014056 0006 AND 0006 /14056-0006 @F 014057 1002 TAD 0002 /14057-1002 HB 014060 0002 AND 0002 /14060-0002 @B 014061 1050 TAD 0050 /14061-1050 H( 014062 0002 AND 0002 /14062-0002 @B 014063 1051 TAD 0051 /14063-1051 H) 014064 0002 AND 0002 /14064-0002 @B 014065 1052 TAD 0052 /14065-1052 H* 014066 0000 AND 0000 /14066-0000 @@ 014067 1053 TAD 0053 /14067-1053 H+ 014070 0000 AND 0000 /14070-0000 @@ 014071 1054 TAD 0054 /14071-1054 H, 014072 0000 AND 0000 /14072-0000 @@ 014073 1055 TAD 0055 /14073-1055 H- 014074 0000 AND 0000 /14074-0000 @@ 014075 0020 AND 0020 /14075-0020 @P 014076 0000 AND 0000 /14076-0000 @@ 014077 0014 AND 0014 /14077-0014 @L 014100 1000 TAD 0000 /14100-1000 H@ 014101 0020 AND 0020 /14101-0020 @P 014102 7302 CLA CLL BSW /14102-7302 ;B 014103 0014 AND 0014 /14103-0014 @L 014104 1010 TAD 0010 /14104-1010 HH 014105 0020 AND 0020 /14105-0020 @P 014106 7306 CLA CLL RTL /14106-7306 ;F 014107 0014 AND 0014 /14107-0014 @L 014110 1020 TAD 0020 /14110-1020 HP 014111 0020 AND 0020 /14111-0020 @P 014112 7312 CLA CLL RTR /14112-7312 ;J 014113 0024 AND 0024 /14113-0024 @T 014114 1040 TAD 0040 /14114-1040 H 014115 0024 AND 0024 /14115-0024 @T 014116 1050 TAD 0050 /14116-1050 H( 014117 0024 AND 0024 /14117-0024 @T /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-42 014120 1060 TAD 0060 /14120-1060 H0 014121 0024 AND 0024 /14121-0024 @T 014122 1070 TAD 0070 /14122-1070 H8 014123 0014 AND 0014 /14123-0014 @L 014124 1031 TAD 0031 /14124-1031 HY 014125 0020 AND 0020 /14125-0020 @P 014126 1617 TAD I 4017 /14126-1617 NO 014127 0114 AND 0114 /14127-0114 AL 014130 0401 AND I 0001 /14130-0401 DA 014131 0141 AND 0141 /14131-0141 A! 014132 1661 TAD I 4061 /14132-1661 N1 014133 0010 AND 0010 /14133-0010 @H 014134 7777 MQA MQL CLA SAM /14134-7777 ?? 014135 0204 AND 4004 /14135-0204 BD 014136 5777 JMP I 4177 /14136-5777 /? 014137 0210 AND 4010 /14137-0210 BH 014140 7777 MQA MQL CLA SAM /14140-7777 ?? 014141 0212 AND 4012 /14141-0212 BJ 014142 1010 TAD 0010 /14142-1010 HH 014143 0214 AND 4014 /14143-0214 BL 014144 0202 AND 4002 /14144-0202 BB 014145 0020 AND 0020 /14145-0020 @P 014146 3030 DCA 0030 /14146-3030 XX 014147 0024 AND 0024 /14147-0024 @T 014150 1001 TAD 0001 /14150-1001 HA 014151 0024 AND 0024 /14151-0024 @T 014152 1011 TAD 0011 /14152-1011 HI 014153 0014 AND 0014 /14153-0014 @L 014154 1021 TAD 0021 /14154-1021 HQ 014155 0020 AND 0020 /14155-0020 @P 014156 1631 TAD I 4031 /14156-1631 NY 014157 0014 AND 0014 /14157-0014 @L 014160 1041 TAD 0041 /14160-1041 H! 014161 0020 AND 0020 /14161-0020 @P 014162 1635 TAD I 4035 /14162-1635 N] 014163 0014 AND 0014 /14163-0014 @L 014164 1051 TAD 0051 /14164-1051 H) 014165 0020 AND 0020 /14165-0020 @P 014166 1641 TAD I 4041 /14166-1641 N! 014167 0024 AND 0024 /14167-0024 @T 014170 1061 TAD 0061 /14170-1061 H1 014171 0024 AND 0024 /14171-0024 @T 014172 1071 TAD 0071 /14172-1071 H9 014173 0014 AND 0014 /14173-0014 @L 014174 1030 TAD 0030 /14174-1030 HX 014175 0020 AND 0020 /14175-0020 @P 014176 7324 CLA CLL CML RAL /14176-7324 ;T 014177 0114 AND 0114 /14177-0114 AL 014200 0400 AND I 0000 /14200-0400 D@ 014201 0141 AND 0141 /14201-0141 A! 014202 7354 7354 /14202-7354 ;, 014203 0010 AND 0010 /14203-0010 @H 014204 3777 DCA I 4377 /14204-3777 _? 014205 0204 AND 4204 /14205-0204 BD 014206 3777 DCA I 4377 /14206-3777 _? /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-43 014207 0210 AND 4210 /14207-0210 BH 014210 7777 MQA MQL CLA SAM /14210-7777 ?? 014211 0212 AND 4212 /14211-0212 BJ 014212 4040 JMS 0040 /14212-4040 014213 0214 AND 4214 /14213-0214 BL 014214 0505 AND I 0105 /14214-0505 EE 014215 0020 AND 0020 /14215-0020 @P 014216 6060 6060 /14216-6060 00 014217 0024 AND 0024 /14217-0024 @T 014220 1000 TAD 0000 /14220-1000 H@ 014221 0014 AND 0014 /14221-0014 @L 014222 1010 TAD 0010 /14222-1010 HH 014223 0020 AND 0020 /14223-0020 @P 014224 7334 7334 /14224-7334 ;\ 014225 0024 AND 0024 /14225-0024 @T 014226 1020 TAD 0020 /14226-1020 HP 014227 0014 AND 0014 /14227-0014 @L 014230 1040 TAD 0040 /14230-1040 H 014231 0020 AND 0020 /14231-0020 @P 014232 7342 CLA CLL CMA BSW /14232-7342 ;" 014233 0024 AND 0024 /14233-0024 @T 014234 1050 TAD 0050 /14234-1050 H( 014235 0014 AND 0014 /14235-0014 @L 014236 1060 TAD 0060 /14236-1060 H0 014237 0020 AND 0020 /14237-0020 @P 014240 7350 CLA CLL CMA RAR /14240-7350 ;( 014241 0014 AND 0014 /14241-0014 @L 014242 1070 TAD 0070 /14242-1070 H8 014243 0020 AND 0020 /14243-0020 @P 014244 7400 7400 /14244-7400 <@ 014245 1000 TAD 0000 /14245-1000 H@ 014246 0000 AND 0000 /14246-0000 @@ 014247 1001 TAD 0001 /14247-1001 HA 014250 0000 AND 0000 /14250-0000 @@ 014251 0324 AND 4324 /14251-0324 CT 014252 0000 AND 0000 /14252-0000 @@ 014253 0327 AND 4327 /14253-0327 CW 014254 7777 MQA MQL CLA SAM /14254-7777 ?? 014255 0170 AND 0170 /14255-0170 A8 014256 6060 6060 /14256-6060 00 014257 0332 AND 4332 /14257-0332 CZ 014260 0505 AND I 0105 /14260-0505 EE 014261 0336 AND 4336 /14261-0336 C^ 014262 4040 JMS 0040 /14262-4040 014263 0341 AND 4341 /14263-0341 C! 014264 3777 DCA I 4377 /14264-3777 _? 014265 0165 AND 0165 /14265-0165 A5 014266 3777 DCA I 4377 /14266-3777 _? 014267 0165 AND 0165 /14267-0165 A5 014270 7401 7401 /14270-7401 <A 014271 0165 AND 0165 /14271-0165 A5 014272 7213 CLA IAC RTR /14272-7213 :K 014273 0165 AND 0165 /14273-0165 A5 014274 7223 CLA CML IAC BSW /14274-7223 :S 014275 0351 AND 4351 /14275-0351 C) /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-44 014276 7356 7356 /14276-7356 ;. 014277 0300 MCOD13, AND 4300 /14277-0300 C@ 014300 7200 CLA /14300-7200 :@ 014301 0321 AND 4321 /14301-0321 CQ 014302 0000 AND 0000 /14302-0000 @@ 014303 0321 AND 4321 /14303-0321 CQ 014304 7401 7401 /14304-7401 <A 014305 0321 AND 4321 /14305-0321 CQ 014306 7213 CLA IAC RTR /14306-7213 :K 014307 0307 AND 4307 /14307-0307 CG 014310 7223 CLA CML IAC BSW /14310-7223 :S 014311 0321 AND 4321 /14311-0321 CQ 014312 0001 AND 0001 /14312-0001 @A 014313 0321 AND 4321 /14313-0321 CQ 014314 0002 AND 0002 /14314-0002 @B 014315 0313 AND 4313 /14315-0313 CK 014316 0003 AND 0003 /14316-0003 @C 014317 0010 AND 0010 /14317-0010 @H 014320 0004 AND 0004 /14320-0004 @D 014321 0010 AND 0010 /14321-0010 @H 014322 0005 AND 0005 /14322-0005 @E 014323 0107 AND 0107 /14323-0107 AG 014324 0006 AND 0006 /14324-0006 @F 014325 0114 AND 0114 /14325-0114 AL 014326 6000 SKON /14326-6000 0@ 014327 0141 AND 0141 /14327-0141 A! 014330 7405 MUY /14330-7405 <E 014331 1060 TAD 0060 /14331-1060 H0 014332 0000 AND 0000 /14332-0000 @@ 014333 1061 TAD 0061 /14333-1061 H1 014334 7405 MUY /14334-7405 <E 014335 0020 AND 0020 /14335-0020 @P 014336 7405 MUY /14336-7405 <E 014337 1010 TAD 0010 /14337-1010 HH 014340 0005 AND 0005 /14340-0005 @E 014341 1074 TAD 0074 /14341-1074 H< 014342 0005 AND 0005 /14342-0005 @E 014343 1101 TAD 0101 /14343-1101 IA 014344 0005 AND 0005 /14344-0005 @E 014345 1102 TAD 0102 /14345-1102 IB 014346 0005 AND 0005 /14346-0005 @E 014347 0020 AND 0020 /14347-0020 @P 014350 0005 AND 0005 /14350-0005 @E 014351 1014 TAD 0014 /14351-1014 HL 014352 0007 AND 0007 /14352-0007 @G 014353 1015 TAD 0015 /14353-1015 HM 014354 0007 AND 0007 /14354-0007 @G 014355 1011 TAD 0011 /14355-1011 HI 014356 0007 AND 0007 /14356-0007 @G 014357 1003 TAD 0003 /14357-1003 HC 014360 7405 MUY /14360-7405 <E 014361 0020 AND 0020 /14361-0020 @P 014362 0000 AND 0000 /14362-0000 @@ 014363 0112 AND 0112 /14363-0112 AJ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-45 014364 6100 6100 /14364-6100 1@ 014365 0114 AND 0114 /14365-0114 AL 014366 6100 6100 /14366-6100 1@ 014367 0141 AND 0141 /14367-0141 A! 014370 7411 NMI /14370-7411 <I 014371 1060 TAD 0060 /14371-1060 H0 014372 0000 AND 0000 /14372-0000 @@ 014373 1061 TAD 0061 /14373-1061 H1 014374 7411 NMI /14374-7411 <I 014375 0020 AND 0020 /14375-0020 @P 014376 7411 NMI /14376-7411 <I 014377 1010 TAD 0010 /14377-1010 HH 014400 0005 AND 0005 /14400-0005 @E 014401 1074 TAD 0074 /14401-1074 H< 014402 0005 AND 0005 /14402-0005 @E 014403 1101 TAD 0101 /14403-1101 IA 014404 0005 AND 0005 /14404-0005 @E 014405 1102 TAD 0102 /14405-1102 IB 014406 0005 AND 0005 /14406-0005 @E 014407 0020 AND 0020 /14407-0020 @P 014410 0005 AND 0005 /14410-0005 @E 014411 1014 TAD 0014 /14411-1014 HL 014412 0007 AND 0007 /14412-0007 @G 014413 1015 TAD 0015 /14413-1015 HM 014414 0007 AND 0007 /14414-0007 @G 014415 1011 TAD 0011 /14415-1011 HI 014416 0007 AND 0007 /14416-0007 @G 014417 1003 TAD 0003 /14417-1003 HC 014420 7411 NMI /14420-7411 <I 014421 0020 AND 0020 /14421-0020 @P 014422 0000 AND 0000 /14422-0000 @@ 014423 0134 AND 0134 /14423-0134 A\ 014424 7001 IAC /14424-7001 8A 014425 0010 AND 0010 /14425-0010 @H 014426 0000 AND 0000 /14426-0000 @@ 014427 0141 AND 0141 /14427-0141 A! 014430 7414 SKP OSR /14430-7414 <L 014431 1060 TAD 0060 /14431-1060 H0 014432 0000 AND 0000 /14432-0000 @@ 014433 1061 TAD 0061 /14433-1061 H1 014434 7414 SKP OSR /14434-7414 <L 014435 0020 AND 0020 /14435-0020 @P 014436 7414 SKP OSR /14436-7414 <L 014437 1010 TAD 0010 /14437-1010 HH 014440 0005 AND 0005 /14440-0005 @E 014441 1074 TAD 0074 /14441-1074 H< 014442 0005 AND 0005 /14442-0005 @E 014443 1101 TAD 0101 /14443-1101 IA 014444 0005 AND 0005 /14444-0005 @E 014445 1102 TAD 0102 /14445-1102 IB 014446 0005 AND 0005 /14446-0005 @E 014447 0020 AND 0020 /14447-0020 @P 014450 0005 AND 0005 /14450-0005 @E 014451 1014 TAD 0014 /14451-1014 HL 014452 0007 AND 0007 /14452-0007 @G /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-46 014453 1015 TAD 0015 /14453-1015 HM 014454 0007 AND 0007 /14454-0007 @G 014455 1011 TAD 0011 /14455-1011 HI 014456 0007 AND 0007 /14456-0007 @G 014457 1003 TAD 0003 /14457-1003 HC 014460 7414 SKP OSR /14460-7414 <L 014461 0020 AND 0020 /14461-0020 @P 014462 0000 AND 0000 /14462-0000 @@ 014463 0132 AND 0132 /14463-0132 AZ 014464 7102 CLL BSW /14464-7102 9B 014465 0134 AND 0134 /14465-0134 A\ 014466 7102 CLL BSW /14466-7102 9B 014467 0010 AND 0010 /14467-0010 @H 014470 0000 AND 0000 /14470-0000 @@ 014471 0141 AND 0141 /14471-0141 A! 014472 7416 SKP OSR HLT /14472-7416 <N 014473 1060 TAD 0060 /14473-1060 H0 014474 0000 AND 0000 /14474-0000 @@ 014475 1061 TAD 0061 /14475-1061 H1 014476 7416 SKP OSR HLT /14476-7416 <N 014477 0020 AND 0020 /14477-0020 @P 014500 7416 SKP OSR HLT /14500-7416 <N 014501 1014 TAD 0014 /14501-1014 HL 014502 0007 AND 0007 /14502-0007 @G 014503 1015 TAD 0015 /14503-1015 HM 014504 0007 AND 0007 /14504-0007 @G 014505 1011 TAD 0011 /14505-1011 HI 014506 0007 AND 0007 /14506-0007 @G 014507 1003 TAD 0003 /14507-1003 HC 014510 7416 SKP OSR HLT /14510-7416 <N 014511 0020 AND 0020 /14511-0020 @P 014512 0000 AND 0000 /14512-0000 @@ 014513 1016 TAD 0016 /14513-1016 HN 014514 5067 JMP 0067 /14514-5067 (7 014515 1055 TAD 0055 /14515-1055 H- 014516 5067 JMP 0067 /14516-5067 (7 014517 0020 AND 0020 /14517-0020 @P 014520 5067 JMP 0067 /14520-5067 (7 014521 1026 TAD 0026 /14521-1026 HV 014522 5000 JMP 0000 /14522-5000 (@ 014523 1050 TAD 0050 /14523-1050 H( 014524 5000 JMP 0000 /14524-5000 (@ 014525 1055 TAD 0055 /14525-1055 H- 014526 5000 JMP 0000 /14526-5000 (@ 014527 0020 AND 0020 /14527-0020 @P 014530 0000 AND 0000 /14530-0000 @@ 014531 0114 AND 0114 /14531-0114 AL 014532 6000 SKON /14532-6000 0@ 014533 0141 AND 0141 /14533-0141 A! 014534 7424 SNL OSR /14534-7424 <T 014535 0010 AND 0010 /14535-0010 @H 014536 0000 AND 0000 /14536-0000 @@ 014537 1037 TAD 0037 /14537-1037 H_ 014540 0002 AND 0002 /14540-0002 @B 014541 1404 TAD I 0004 /14541-1404 LD /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-47 014542 0002 AND 0002 /14542-0002 @B 014543 1540 TAD I 0140 /14543-1540 M 014544 0002 AND 0002 /14544-0002 @B 014545 1541 TAD I 0141 /14545-1541 M! 014546 0002 AND 0002 /14546-0002 @B 014547 1450 TAD I 0050 /14547-1450 L( 014550 0000 AND 0000 /14550-0000 @@ 014551 1111 TAD 0111 /14551-1111 II 014552 0000 AND 0000 /14552-0000 @@ 014553 1112 TAD 0112 /14553-1112 IJ 014554 0000 AND 0000 /14554-0000 @@ 014555 1116 TAD 0116 /14555-1116 IN 014556 0000 AND 0000 /14556-0000 @@ 014557 1451 TAD I 0051 /14557-1451 L) 014560 0000 AND 0000 /14560-0000 @@ 014561 1452 TAD I 0052 /14561-1452 L* 014562 0000 AND 0000 /14562-0000 @@ 014563 1347 TAD 4547 /14563-1347 K' 014564 0000 AND 0000 /14564-0000 @@ 014565 1350 TAD 4550 /14565-1350 K( 014566 0000 AND 0000 /14566-0000 @@ 014567 1357 TAD 4557 /14567-1357 K/ 014570 0000 AND 0000 /14570-0000 @@ 014571 1361 TAD 4561 /14571-1361 K1 014572 0000 AND 0000 /14572-0000 @@ 014573 1013 TAD 0013 /14573-1013 HK 014574 0000 AND 0000 /14574-0000 @@ 014575 0020 AND 0020 /14575-0020 @P 014576 0000 AND 0000 /14576-0000 @@ 014577 0074 AND 0074 /14577-0074 @< 014600 3000 DCA 0000 /14600-3000 X@ 014601 1000 TAD 0000 /14601-1000 H@ 014602 7422 SNL HLT /14602-7422 <R 014603 1001 TAD 0001 /14603-1001 HA 014604 7422 SNL HLT /14604-7422 <R 014605 0324 AND 4724 /14605-0324 CT 014606 7422 SNL HLT /14606-7422 <R 014607 0336 AND 4736 /14607-0336 C^ 014610 0006 AND 0006 /14610-0006 @F 014611 0341 AND 4741 /14611-0341 C! 014612 0000 AND 0000 /14612-0000 @@ 014613 0165 AND 0165 /14613-0165 A5 014614 0000 AND 0000 /14614-0000 @@ 014615 0165 AND 0165 /14615-0165 A5 014616 7424 SNL OSR /14616-7424 <T 014617 0165 AND 0165 /14617-0165 A5 014620 7213 CLA IAC RTR /14620-7213 :K 014621 0165 AND 0165 /14621-0165 A5 014622 7223 CLA CML IAC BSW /14622-7223 :S 014623 0351 AND 4751 /14623-0351 C) 014624 7422 SNL HLT /14624-7422 <R 014625 0300 MCOD14, AND 4700 /14625-0300 C@ 014626 7200 CLA /14626-7200 :@ 014627 0321 AND 4721 /14627-0321 CQ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-48 014630 0000 AND 0000 /14630-0000 @@ 014631 0321 AND 4721 /14631-0321 CQ 014632 6115 6115 /14632-6115 1M 014633 0321 AND 4721 /14633-0321 CQ 014634 7213 CLA IAC RTR /14634-7213 :K 014635 0307 AND 4707 /14635-0307 CG 014636 7223 CLA CML IAC BSW /14636-7223 :S 014637 0321 AND 4721 /14637-0321 CQ 014640 0001 AND 0001 /14640-0001 @A 014641 0321 AND 4721 /14641-0321 CQ 014642 0002 AND 0002 /14642-0002 @B 014643 0313 AND 4713 /14643-0313 CK 014644 0003 AND 0003 /14644-0003 @C 014645 0010 AND 0010 /14645-0010 @H 014646 0004 AND 0004 /14646-0004 @D 014647 0010 AND 0010 /14647-0010 @H 014650 0005 AND 0005 /14650-0005 @E 014651 0107 AND 0107 /14651-0107 AG 014652 0006 AND 0006 /14652-0006 @F 014653 1012 TAD 0012 /14653-1012 HJ 014654 0006 AND 0006 /14654-0006 @F 014655 1013 TAD 0013 /14655-1013 HK 014656 0006 AND 0006 /14656-0006 @F 014657 0020 AND 0020 /14657-0020 @P 014660 0006 AND 0006 /14660-0006 @F 014661 0134 AND 0134 /14661-0134 A\ 014662 1603 TAD I 4603 /14662-1603 NC 014663 0010 AND 0010 /14663-0010 @H 014664 0000 AND 0000 /14664-0000 @@ 014665 0141 AND 0141 /14665-0141 A! 014666 6122 6122 /14666-6122 1R 014667 0010 AND 0010 /14667-0010 @H 014670 2777 ISZ I 4777 /14670-2777 W? 014671 1037 TAD 0037 /14671-1037 H_ 014672 7777 MQA MQL CLA SAM /14672-7777 ?? 014673 1400 TAD I 0000 /14673-1400 L@ 014674 7777 MQA MQL CLA SAM /14674-7777 ?? 014675 1413 TAD I 0013 /14675-1413 LK 014676 7777 MQA MQL CLA SAM /14676-7777 ?? 014677 1344 TAD 4744 /14677-1344 K$ 014700 0002 AND 0002 /14700-0002 @B 014701 1345 TAD 4745 /14701-1345 K% 014702 0002 AND 0002 /14702-0002 @B 014703 1414 TAD I 0014 /14703-1414 LL 014704 0003 AND 0003 /14704-0003 @C 014705 1415 TAD I 0015 /14705-1415 LM 014706 0003 AND 0003 /14706-0003 @C 014707 1416 TAD I 0016 /14707-1416 LN 014710 0002 AND 0002 /14710-0002 @B 014711 1417 TAD I 0017 /14711-1417 LO 014712 3002 DCA 0002 /14712-3002 XB 014713 1420 TAD I 0020 /14713-1420 LP 014714 3002 DCA 0002 /14714-3002 XB 014715 1421 TAD I 0021 /14715-1421 LQ 014716 3002 DCA 0002 /14716-3002 XB /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-49 014717 1350 TAD 4750 /14717-1350 K( 014720 3002 DCA 0002 /14720-3002 XB 014721 1357 TAD 4757 /14721-1357 K/ 014722 3002 DCA 0002 /14722-3002 XB 014723 1360 TAD 4760 /14723-1360 K0 014724 3002 DCA 0002 /14724-3002 XB 014725 0020 AND 0020 /14725-0020 @P 014726 0002 AND 0002 /14726-0002 @B 014727 1020 TAD 0020 /14727-1020 HP 014730 0050 AND 0050 /14730-0050 @( 014731 1021 TAD 0021 /14731-1021 HQ 014732 0050 AND 0050 /14732-0050 @( 014733 1022 TAD 0022 /14733-1022 HR 014734 0050 AND 0050 /14734-0050 @( 014735 1023 TAD 0023 /14735-1023 HS 014736 0000 AND 0000 /14736-0000 @@ 014737 0020 AND 0020 /14737-0020 @P 014740 0000 AND 0000 /14740-0000 @@ 014741 0134 AND 0134 /14741-0134 A\ 014742 1604 TAD I 4604 /14742-1604 ND 014743 0010 AND 0010 /14743-0010 @H 014744 0000 AND 0000 /14744-0000 @@ 014745 0141 AND 0141 /14745-0141 A! 014746 6124 6124 /14746-6124 1T 014747 0010 AND 0010 /14747-0010 @H 014750 0001 AND 0001 /14750-0001 @A 014751 0010 AND 0010 /14751-0010 @H 014752 0675 AND I 4675 /14752-0675 F= 014753 0245 AND 4645 /14753-0245 B% 014754 7776 SPA SNA SZL CLA OSR HLT /14754-7776 ?> 014755 0247 AND 4647 /14755-0247 B' 014756 7777 MQA MQL CLA SAM /14756-7777 ?? 014757 0251 AND 4651 /14757-0251 B) 014760 0000 AND 0000 /14760-0000 @@ 014761 1037 TAD 0037 /14761-1037 H_ 014762 7777 MQA MQL CLA SAM /14762-7777 ?? 014763 1401 TAD I 0001 /14763-1401 LA 014764 7777 MQA MQL CLA SAM /14764-7777 ?? 014765 1422 TAD I 0022 /14765-1422 LR 014766 7777 MQA MQL CLA SAM /14766-7777 ?? 014767 1423 TAD I 0023 /14767-1423 LS 014770 0001 AND 0001 /14770-0001 @A 014771 1333 TAD 4733 /14771-1333 K[ 014772 0001 AND 0001 /14772-0001 @A 014773 1334 TAD 4734 /14773-1334 K\ 014774 0001 AND 0001 /14774-0001 @A 014775 1335 TAD 4735 /14775-1335 K] 014776 3002 DCA 0002 /14776-3002 XB 014777 1336 TAD 4736 /14777-1336 K^ 015000 3002 DCA 0002 /15000-3002 XB 015001 1337 TAD 5137 /15001-1337 K_ 015002 0000 AND 0000 /15002-0000 @@ 015003 1340 TAD 5140 /15003-1340 K 015004 0000 AND 0000 /15004-0000 @@ 015005 1341 TAD 5141 /15005-1341 K! /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-50 015006 0000 AND 0000 /15006-0000 @@ 015007 1342 TAD 5142 /15007-1342 K" 015010 0000 AND 0000 /15010-0000 @@ 015011 1343 TAD 5143 /15011-1343 K# 015012 0000 AND 0000 /15012-0000 @@ 015013 1344 TAD 5144 /15013-1344 K$ 015014 0000 AND 0000 /15014-0000 @@ 015015 1345 TAD 5145 /15015-1345 K% 015016 0000 AND 0000 /15016-0000 @@ 015017 1424 TAD I 0024 /15017-1424 LT 015020 0002 AND 0002 /15020-0002 @B 015021 1425 TAD I 0025 /15021-1425 LU 015022 0002 AND 0002 /15022-0002 @B 015023 1426 TAD I 0026 /15023-1426 LV 015024 0000 AND 0000 /15024-0000 @@ 015025 1427 TAD I 0027 /15025-1427 LW 015026 0000 AND 0000 /15026-0000 @@ 015027 1430 TAD I 0030 /15027-1430 LX 015030 0000 AND 0000 /15030-0000 @@ 015031 1431 TAD I 0031 /15031-1431 LY 015032 0000 AND 0000 /15032-0000 @@ 015033 1432 TAD I 0032 /15033-1432 LZ 015034 0000 AND 0000 /15034-0000 @@ 015035 1433 TAD I 0033 /15035-1433 L[ 015036 0030 AND 0030 /15036-0030 @X 015037 1434 TAD I 0034 /15037-1434 L\ 015040 0073 AND 0073 /15040-0073 @; 015041 1435 TAD I 0035 /15041-1435 L] 015042 0073 AND 0073 /15042-0073 @; 015043 1314 TAD 5114 /15043-1314 KL 015044 0073 AND 0073 /15044-0073 @; 015045 1315 TAD 5115 /15045-1315 KM 015046 0001 AND 0001 /15046-0001 @A 015047 1316 TAD 5116 /15047-1316 KN 015050 3002 DCA 0002 /15050-3002 XB 015051 1317 TAD 5117 /15051-1317 KO 015052 0675 AND I 5075 /15052-0675 F= 015053 1320 TAD 5120 /15053-1320 KP 015054 3002 DCA 0002 /15054-3002 XB 015055 1321 TAD 5121 /15055-1321 KQ 015056 0000 AND 0000 /15056-0000 @@ 015057 1322 TAD 5122 /15057-1322 KR 015060 7777 MQA MQL CLA SAM /15060-7777 ?? 015061 1323 TAD 5123 /15061-1323 KS 015062 0000 AND 0000 /15062-0000 @@ 015063 1324 TAD 5124 /15063-1324 KT 015064 0000 AND 0000 /15064-0000 @@ 015065 1325 TAD 5125 /15065-1325 KU 015066 0000 AND 0000 /15066-0000 @@ 015067 1326 TAD 5126 /15067-1326 KV 015070 0000 AND 0000 /15070-0000 @@ 015071 1327 TAD 5127 /15071-1327 KW 015072 0000 AND 0000 /15072-0000 @@ 015073 1330 TAD 5130 /15073-1330 KX 015074 7777 MQA MQL CLA SAM /15074-7777 ?? /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-51 015075 1331 TAD 5131 /15075-1331 KY 015076 0000 AND 0000 /15076-0000 @@ 015077 1332 TAD 5132 /15077-1332 KZ 015100 0002 AND 0002 /15100-0002 @B 015101 1436 TAD I 0036 /15101-1436 L^ 015102 7776 SPA SNA SZL CLA OSR HLT /15102-7776 ?> 015103 1260 TAD 5060 /15103-1260 J0 015104 0002 AND 0002 /15104-0002 @B 015105 1261 TAD 5061 /15105-1261 J1 015106 0002 AND 0002 /15106-0002 @B 015107 1262 TAD 5062 /15107-1262 J2 015110 0000 AND 0000 /15110-0000 @@ 015111 1263 TAD 5063 /15111-1263 J3 015112 0014 AND 0014 /15112-0014 @L 015113 1437 TAD I 0037 /15113-1437 L_ 015114 0014 AND 0014 /15114-0014 @L 015115 1440 TAD I 0040 /15115-1440 L 015116 0000 AND 0000 /15116-0000 @@ 015117 1441 TAD I 0041 /15117-1441 L! 015120 7777 MQA MQL CLA SAM /15120-7777 ?? 015121 1442 TAD I 0042 /15121-1442 L" 015122 0000 AND 0000 /15122-0000 @@ 015123 1443 TAD I 0043 /15123-1443 L# 015124 7777 MQA MQL CLA SAM /15124-7777 ?? 015125 1444 TAD I 0044 /15125-1444 L$ 015126 0000 AND 0000 /15126-0000 @@ 015127 1445 TAD I 0045 /15127-1445 L% 015130 3700 DCA I 5100 /15130-3700 _@ 015131 1446 TAD I 0046 /15131-1446 L& 015132 0001 AND 0001 /15132-0001 @A 015133 1177 TAD 0177 /15133-1177 I? 015134 0001 AND 0001 /15134-0001 @A 015135 1200 TAD 5000 /15135-1200 J@ 015136 0001 AND 0001 /15136-0001 @A 015137 1201 TAD 5001 /15137-1201 JA 015140 3700 DCA I 5100 /15140-3700 _@ 015141 1202 TAD 5002 /15141-1202 JB 015142 0000 AND 0000 /15142-0000 @@ 015143 1237 TAD 5037 /15143-1237 J_ 015144 7777 MQA MQL CLA SAM /15144-7777 ?? 015145 1240 TAD 5040 /15145-1240 J 015146 0000 AND 0000 /15146-0000 @@ 015147 1247 TAD 5047 /15147-1247 J' 015150 0000 AND 0000 /15150-0000 @@ 015151 1447 TAD I 0047 /15151-1447 L' 015152 0000 AND 0000 /15152-0000 @@ 015153 1451 TAD I 0051 /15153-1451 L) 015154 0000 AND 0000 /15154-0000 @@ 015155 1452 TAD I 0052 /15155-1452 L* 015156 0001 AND 0001 /15156-0001 @A 015157 1347 TAD 5147 /15157-1347 K' 015160 0001 AND 0001 /15160-0001 @A 015161 1350 TAD 5150 /15161-1350 K( 015162 0001 AND 0001 /15162-0001 @A 015163 1351 TAD 5151 /15163-1351 K) /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-52 015164 3700 DCA I 5100 /15164-3700 _@ 015165 1352 TAD 5152 /15165-1352 K* 015166 3700 DCA I 5100 /15166-3700 _@ 015167 1353 TAD 5153 /15167-1353 K+ 015170 7777 MQA MQL CLA SAM /15170-7777 ?? 015171 1354 TAD 5154 /15171-1354 K, 015172 7777 MQA MQL CLA SAM /15172-7777 ?? 015173 1355 TAD 5155 /15173-1355 K- 015174 0000 AND 0000 /15174-0000 @@ 015175 1356 TAD 5156 /15175-1356 K. 015176 0000 AND 0000 /15176-0000 @@ 015177 1357 TAD 5157 /15177-1357 K/ 015200 7777 MQA MQL CLA SAM /15200-7777 ?? 015201 1360 TAD 5360 /15201-1360 K0 015202 7777 MQA MQL CLA SAM /15202-7777 ?? 015203 0020 AND 0020 /15203-0020 @P 015204 0000 AND 0000 /15204-0000 @@ 015205 1000 TAD 0000 /15205-1000 H@ 015206 0000 AND 0000 /15206-0000 @@ 015207 1001 TAD 0001 /15207-1001 HA 015210 0000 AND 0000 /15210-0000 @@ 015211 0324 AND 5324 /15211-0324 CT 015212 0000 AND 0000 /15212-0000 @@ 015213 0327 AND 5327 /15213-0327 CW 015214 0000 AND 0000 /15214-0000 @@ 015215 0170 AND 0170 /15215-0170 A8 015216 7777 MQA MQL CLA SAM /15216-7777 ?? 015217 0332 AND 5332 /15217-0332 CZ 015220 0000 AND 0000 /15220-0000 @@ 015221 0336 AND 5336 /15221-0336 C^ 015222 7777 MQA MQL CLA SAM /15222-7777 ?? 015223 0341 AND 5341 /15223-0341 C! 015224 3700 DCA I 5300 /15224-3700 _@ 015225 0165 AND 0165 /15225-0165 A5 015226 0001 AND 0001 /15226-0001 @A 015227 0165 AND 0165 /15227-0165 A5 015230 6122 6122 /15230-6122 1R 015231 0165 AND 0165 /15231-0165 A5 015232 7213 CLA IAC RTR /15232-7213 :K 015233 0165 AND 0165 /15233-0165 A5 015234 7223 CLA CML IAC BSW /15234-7223 :S 015235 0351 AND 5351 /15235-0351 C) 015236 6126 6126 /15236-6126 1V 015237 0300 MCOD15, AND 5300 /15237-0300 C@ 015240 7200 CLA /15240-7200 :@ 015241 0321 AND 5321 /15241-0321 CQ 015242 0000 AND 0000 /15242-0000 @@ 015243 0321 AND 5321 /15243-0321 CQ 015244 7426 SNL OSR HLT /15244-7426 <V 015245 0321 AND 5321 /15245-0321 CQ 015246 7213 CLA IAC RTR /15246-7213 :K 015247 0307 AND 5307 /15247-0307 CG 015250 7223 CLA CML IAC BSW /15250-7223 :S 015251 0321 AND 5321 /15251-0321 CQ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-53 015252 0001 AND 0001 /15252-0001 @A 015253 0321 AND 5321 /15253-0321 CQ 015254 0002 AND 0002 /15254-0002 @B 015255 0313 AND 5313 /15255-0313 CK 015256 0003 AND 0003 /15256-0003 @C 015257 0010 AND 0010 /15257-0010 @H 015260 0004 AND 0004 /15260-0004 @D 015261 0010 AND 0010 /15261-0010 @H 015262 0005 AND 0005 /15262-0005 @E 015263 0107 AND 0107 /15263-0107 AG 015264 0006 AND 0006 /15264-0006 @F 015265 0100 AND 0100 /15265-0100 A@ 015266 4205 JMS 5205 /15266-4205 "E 015267 0010 AND 0010 /15267-0010 @H 015270 0001 AND 0001 /15270-0001 @A 015271 0010 AND 0010 /15271-0010 @H 015272 0000 AND 0000 /15272-0000 @@ 015273 0245 AND 5245 /15273-0245 B% 015274 0000 AND 0000 /15274-0000 @@ 015275 0247 AND 5247 /15275-0247 B' 015276 0000 AND 0000 /15276-0000 @@ 015277 0251 AND 5251 /15277-0251 B) 015300 0000 AND 0000 /15300-0000 @@ 015301 1037 TAD 0037 /15301-1037 H_ 015302 0000 AND 0000 /15302-0000 @@ 015303 1402 TAD I 0002 /15303-1402 LB 015304 0000 AND 0000 /15304-0000 @@ 015305 1472 TAD I 0072 /15305-1472 L: 015306 0000 AND 0000 /15306-0000 @@ 015307 1450 TAD I 0050 /15307-1450 L( 015310 0001 AND 0001 /15310-0001 @A 015311 1111 TAD 0111 /15311-1111 II 015312 0000 AND 0000 /15312-0000 @@ 015313 1112 TAD 0112 /15313-1112 IJ 015314 0000 AND 0000 /15314-0000 @@ 015315 1113 TAD 0113 /15315-1113 IK 015316 0000 AND 0000 /15316-0000 @@ 015317 1114 TAD 0114 /15317-1114 IL 015320 0000 AND 0000 /15320-0000 @@ 015321 1115 TAD 0115 /15321-1115 IM 015322 0000 AND 0000 /15322-0000 @@ 015323 1116 TAD 0116 /15323-1116 IN 015324 0000 AND 0000 /15324-0000 @@ 015325 1451 TAD I 0051 /15325-1451 L) 015326 0000 AND 0000 /15326-0000 @@ 015327 1452 TAD I 0052 /15327-1452 L* 015330 0000 AND 0000 /15330-0000 @@ 015331 1347 TAD 5347 /15331-1347 K' 015332 0000 AND 0000 /15332-0000 @@ 015333 1350 TAD 5350 /15333-1350 K( 015334 0000 AND 0000 /15334-0000 @@ 015335 1351 TAD 5351 /15335-1351 K) 015336 0000 AND 0000 /15336-0000 @@ 015337 1352 TAD 5352 /15337-1352 K* 015340 0000 AND 0000 /15340-0000 @@ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-54 015341 1353 TAD 5353 /15341-1353 K+ 015342 0000 AND 0000 /15342-0000 @@ 015343 1354 TAD 5354 /15343-1354 K, 015344 0000 AND 0000 /15344-0000 @@ 015345 1355 TAD 5355 /15345-1355 K- 015346 0000 AND 0000 /15346-0000 @@ 015347 1356 TAD 5356 /15347-1356 K. 015350 0000 AND 0000 /15350-0000 @@ 015351 1357 TAD 5357 /15351-1357 K/ 015352 0000 AND 0000 /15352-0000 @@ 015353 1361 TAD 5361 /15353-1361 K1 015354 0000 AND 0000 /15354-0000 @@ 015355 1362 TAD 5362 /15355-1362 K2 015356 0000 AND 0000 /15356-0000 @@ 015357 0020 AND 0020 /15357-0020 @P 015360 0000 AND 0000 /15360-0000 @@ 015361 0134 AND 0134 /15361-0134 A\ 015362 7607 CLA DVI /15362-7607 >G 015363 0010 AND 0010 /15363-0010 @H 015364 0000 AND 0000 /15364-0000 @@ 015365 0141 AND 0141 /15365-0141 A! 015366 7213 CLA IAC RTR /15366-7213 :K 015367 0010 AND 0010 /15367-0010 @H 015370 3777 DCA I 5377 /15370-3777 _? 015371 0010 AND 0010 /15371-0010 @H 015372 3777 DCA I 5377 /15372-3777 _? 015373 0245 AND 5245 /15373-0245 B% 015374 7777 MQA MQL CLA SAM /15374-7777 ?? 015375 0247 AND 5247 /15375-0247 B' 015376 4040 JMS 0040 /15376-4040 015377 0251 AND 5251 /15377-0251 B) 015400 0505 AND I 0105 /15400-0505 EE 015401 1037 TAD 0037 /15401-1037 H_ 015402 6060 6060 /15402-6060 00 015403 1402 TAD I 0002 /15403-1402 LB 015404 6060 6060 /15404-6060 00 015405 1472 TAD I 0072 /15405-1472 L: 015406 6060 6060 /15406-6060 00 015407 1473 TAD I 0073 /15407-1473 L; 015410 0000 AND 0000 /15410-0000 @@ 015411 1450 TAD I 0050 /15411-1450 L( 015412 3777 DCA I 5577 /15412-3777 _? 015413 1111 TAD 0111 /15413-1111 II 015414 0000 AND 0000 /15414-0000 @@ 015415 1112 TAD 0112 /15415-1112 IJ 015416 0000 AND 0000 /15416-0000 @@ 015417 1113 TAD 0113 /15417-1113 IK 015420 0000 AND 0000 /15420-0000 @@ 015421 1114 TAD 0114 /15421-1114 IL 015422 0000 AND 0000 /15422-0000 @@ 015423 1115 TAD 0115 /15423-1115 IM 015424 0000 AND 0000 /15424-0000 @@ 015425 1116 TAD 0116 /15425-1116 IN 015426 0000 AND 0000 /15426-0000 @@ 015427 1451 TAD I 0051 /15427-1451 L) /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-55 015430 0000 AND 0000 /15430-0000 @@ 015431 0353 AND 5553 /15431-0353 C+ 015432 0000 AND 0000 /15432-0000 @@ 015433 0357 AND 5557 /15433-0357 C/ 015434 0000 AND 0000 /15434-0000 @@ 015435 0361 AND 5561 /15435-0361 C1 015436 0000 AND 0000 /15436-0000 @@ 015437 0370 AND 5570 /15437-0370 C8 015440 0000 AND 0000 /15440-0000 @@ 015441 0370 AND 5570 /15441-0370 C8 015442 0000 AND 0000 /15442-0000 @@ 015443 0370 AND 5570 /15443-0370 C8 015444 0000 AND 0000 /15444-0000 @@ 015445 0020 AND 0020 /15445-0020 @P 015446 0000 AND 0000 /15446-0000 @@ 015447 0114 AND 0114 /15447-0114 AL 015450 0400 AND I 0000 /15450-0400 D@ 015451 0141 AND 0141 /15451-0141 A! 015452 7354 7354 /15452-7354 ;, 015453 0010 AND 0010 /15453-0010 @H 015454 3777 DCA I 5577 /15454-3777 _? 015455 0204 AND 5404 /15455-0204 BD 015456 3777 DCA I 5577 /15456-3777 _? 015457 0210 AND 5410 /15457-0210 BH 015460 7777 MQA MQL CLA SAM /15460-7777 ?? 015461 0212 AND 5412 /15461-0212 BJ 015462 4040 JMS 0040 /15462-4040 015463 0214 AND 5414 /15463-0214 BL 015464 0505 AND I 0105 /15464-0505 EE 015465 0020 AND 0020 /15465-0020 @P 015466 6060 6060 /15466-6060 00 015467 0100 AND 0100 /15467-0100 A@ 015470 3205 DCA 5405 /15470-3205 ZE 015471 0010 AND 0010 /15471-0010 @H 015472 0001 AND 0001 /15472-0001 @A 015473 0010 AND 0010 /15473-0010 @H 015474 0000 AND 0000 /15474-0000 @@ 015475 0245 AND 5445 /15475-0245 B% 015476 0000 AND 0000 /15476-0000 @@ 015477 0247 AND 5447 /15477-0247 B' 015500 0000 AND 0000 /15500-0000 @@ 015501 0251 AND 5451 /15501-0251 B) 015502 0000 AND 0000 /15502-0000 @@ 015503 1037 TAD 0037 /15503-1037 H_ 015504 0000 AND 0000 /15504-0000 @@ 015505 1403 TAD I 0003 /15505-1403 LC 015506 0000 AND 0000 /15506-0000 @@ 015507 1562 TAD I 0162 /15507-1562 M2 015510 0000 AND 0000 /15510-0000 @@ 015511 1630 TAD I 5430 /15511-1630 NX 015512 7776 SPA SNA SZL CLA OSR HLT /15512-7776 ?> 015513 1631 TAD I 5431 /15513-1631 NY 015514 0000 AND 0000 /15514-0000 @@ 015515 1000 TAD 0000 /15515-1000 H@ 015516 0000 AND 0000 /15516-0000 @@ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-56 015517 1001 TAD 0001 /15517-1001 HA 015520 0000 AND 0000 /15520-0000 @@ 015521 0324 AND 5524 /15521-0324 CT 015522 0000 AND 0000 /15522-0000 @@ 015523 0327 AND 5527 /15523-0327 CW 015524 7777 MQA MQL CLA SAM /15524-7777 ?? 015525 0170 AND 0170 /15525-0170 A8 015526 6060 6060 /15526-6060 00 015527 0332 AND 5532 /15527-0332 CZ 015530 0505 AND I 0105 /15530-0505 EE 015531 0336 AND 5536 /15531-0336 C^ 015532 4040 JMS 0040 /15532-4040 015533 0341 AND 5541 /15533-0341 C! 015534 3777 DCA I 5577 /15534-3777 _? 015535 0165 AND 0165 /15535-0165 A5 015536 3777 DCA I 5577 /15536-3777 _? 015537 0165 AND 0165 /15537-0165 A5 015540 7433 MQL SHL /15540-7433 <[ 015541 0165 AND 0165 /15541-0165 A5 015542 7213 CLA IAC RTR /15542-7213 :K 015543 0165 AND 0165 /15543-0165 A5 015544 7223 CLA CML IAC BSW /15544-7223 :S 015545 0351 AND 5551 /15545-0351 C) 015546 7244 CLA CMA RAL /15546-7244 :$ 015547 0300 MCOD16, AND 5500 /15547-0300 C@ 015550 7200 CLA /15550-7200 :@ 015551 0321 AND 5521 /15551-0321 CQ 015552 0000 AND 0000 /15552-0000 @@ 015553 0107 AND 0107 /15553-0107 AG 015554 6530 6530 /15554-6530 5X 015555 0114 AND 0114 /15555-0114 AL 015556 0400 AND I 0000 /15556-0400 D@ 015557 0141 AND 0141 /15557-0141 A! 015560 6542 6542 /15560-6542 5" 015561 0010 AND 0010 /15561-0010 @H 015562 7777 MQA MQL CLA SAM /15562-7777 ?? 015563 0204 AND 5404 /15563-0204 BD 015564 5555 JMP I 0155 /15564-5555 -- 015565 0210 AND 5410 /15565-0210 BH 015566 5555 JMP I 0155 /15566-5555 -- 015567 0212 AND 5412 /15567-0212 BJ 015570 0077 AND 0077 /15570-0077 @? 015571 0214 AND 5414 /15571-0214 BL 015572 0770 AND I 5570 /15572-0770 G8 015573 0020 AND 0020 /15573-0020 @P 015574 7700 SMA CLA /15574-7700 ?@ 015575 0114 AND 0114 /15575-0114 AL 015576 6400 6400 /15576-6400 4@ 015577 0141 AND 0141 /15577-0141 A! 015600 7205 CLA IAC RAL /15600-7205 :E 015601 0222 AND 5622 /15601-0222 BR 015602 7777 MQA MQL CLA SAM /15602-7777 ?? 015603 0226 AND 5626 /15603-0226 BV 015604 5555 JMP I 0155 /15604-5555 -- /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-57 015605 0370 AND 5770 /15605-0370 C8 015606 5555 JMP I 0155 /15606-5555 -- 015607 0370 AND 5770 /15607-0370 C8 015610 0077 AND 0077 /15610-0077 @? 015611 0370 AND 5770 /15611-0370 C8 015612 0770 AND I 5770 /15612-0770 G8 015613 0020 AND 0020 /15613-0020 @P 015614 7700 SMA CLA /15614-7700 ?@ 015615 1012 TAD 0012 /15615-1012 HJ 015616 0006 AND 0006 /15616-0006 @F 015617 1013 TAD 0013 /15617-1013 HK 015620 0006 AND 0006 /15620-0006 @F 015621 0020 AND 0020 /15621-0020 @P 015622 0006 AND 0006 /15622-0006 @F 015623 0036 AND 0036 /15623-0036 @^ 015624 1110 TAD 0110 /15624-1110 IH 015625 0020 AND 0020 /15625-0020 @P 015626 7213 CLA IAC RTR /15626-7213 :K 015627 0102 AND 0102 /15627-0102 AB 015630 6200 LXM /15630-6200 2@ 015631 0226 AND 5626 /15631-0226 BV 015632 5555 JMP I 0155 /15632-5555 -- 015633 0020 AND 0020 /15633-0020 @P 015634 5555 JMP I 0155 /15634-5555 -- 015635 0114 AND 0114 /15635-0114 AL 015636 4400 JMS I 0000 /15636-4400 $@ 015637 0141 AND 0141 /15637-0141 A! 015640 6550 FFST /15640-6550 5( 015641 0010 AND 0010 /15641-0010 @H 015642 2020 ISZ 0020 /15642-2020 PP 015643 1037 TAD 0037 /15643-1037 H_ 015644 2020 ISZ 0020 /15644-2020 PP 015645 1402 TAD I 0002 /15645-1402 LB 015646 2020 ISZ 0020 /15646-2020 PP 015647 1472 TAD I 0072 /15647-1472 L: 015650 2020 ISZ 0020 /15650-2020 PP 015651 1473 TAD I 0073 /15651-1473 L; 015652 7777 MQA MQL CLA SAM /15652-7777 ?? 015653 1474 TAD I 0074 /15653-1474 L< 015654 2020 ISZ 0020 /15654-2020 PP 015655 1111 TAD 0111 /15655-1111 II 015656 0000 AND 0000 /15656-0000 @@ 015657 1112 TAD 0112 /15657-1112 IJ 015660 7777 MQA MQL CLA SAM /15660-7777 ?? 015661 1116 TAD 0116 /15661-1116 IN 015662 0000 AND 0000 /15662-0000 @@ 015663 1475 TAD I 0075 /15663-1475 L= 015664 0000 AND 0000 /15664-0000 @@ 015665 1532 TAD I 0132 /15665-1532 MZ 015666 0000 AND 0000 /15666-0000 @@ 015667 1533 TAD I 0133 /15667-1533 M[ 015670 0000 AND 0000 /15670-0000 @@ 015671 1556 TAD I 0156 /15671-1556 M. 015672 5555 JMP I 0155 /15672-5555 -- 015673 1557 TAD I 0157 /15673-1557 M/ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-58 015674 3333 DCA 5733 /15674-3333 [[ 015675 1533 TAD I 0133 /15675-1533 M[ 015676 3333 DCA 5733 /15676-3333 [[ 015677 1556 TAD I 0156 /15677-1556 M. 015700 3333 DCA 5733 /15700-3333 [[ 015701 1557 TAD I 0157 /15701-1557 M/ 015702 6666 6666 /15702-6666 66 015703 1533 TAD I 0133 /15703-1533 M[ 015704 6666 6666 /15704-6666 66 015705 1556 TAD I 0156 /15705-1556 M. 015706 6666 6666 /15706-6666 66 015707 1557 TAD I 0157 /15707-1557 M/ 015710 5555 JMP I 0155 /15710-5555 -- 015711 1533 TAD I 0133 /15711-1533 M[ 015712 5555 JMP I 0155 /15712-5555 -- 015713 1556 TAD I 0156 /15713-1556 M. 015714 5555 JMP I 0155 /15714-5555 -- 015715 1557 TAD I 0157 /15715-1557 M/ 015716 3333 DCA 5733 /15716-3333 [[ 015717 1533 TAD I 0133 /15717-1533 M[ 015720 3333 DCA 5733 /15720-3333 [[ 015721 1556 TAD I 0156 /15721-1556 M. 015722 3333 DCA 5733 /15722-3333 [[ 015723 1557 TAD I 0157 /15723-1557 M/ 015724 6666 6666 /15724-6666 66 015725 1533 TAD I 0133 /15725-1533 M[ 015726 6666 6666 /15726-6666 66 015727 1556 TAD I 0156 /15727-1556 M. 015730 6666 6666 /15730-6666 66 015731 1557 TAD I 0157 /15731-1557 M/ 015732 5555 JMP I 0155 /15732-5555 -- 015733 1533 TAD I 0133 /15733-1533 M[ 015734 5555 JMP I 0155 /15734-5555 -- 015735 1556 TAD I 0156 /15735-1556 M. 015736 5555 JMP I 0155 /15736-5555 -- 015737 1557 TAD I 0157 /15737-1557 M/ 015740 3333 DCA 5733 /15740-3333 [[ 015741 1533 TAD I 0133 /15741-1533 M[ 015742 3333 DCA 5733 /15742-3333 [[ 015743 1556 TAD I 0156 /15743-1556 M. 015744 3333 DCA 5733 /15744-3333 [[ 015745 1557 TAD I 0157 /15745-1557 M/ 015746 6666 6666 /15746-6666 66 015747 1533 TAD I 0133 /15747-1533 M[ 015750 6666 6666 /15750-6666 66 015751 1556 TAD I 0156 /15751-1556 M. 015752 6666 6666 /15752-6666 66 015753 1557 TAD I 0157 /15753-1557 M/ 015754 5555 JMP I 0155 /15754-5555 -- 015755 1533 TAD I 0133 /15755-1533 M[ 015756 5555 JMP I 0155 /15756-5555 -- 015757 1556 TAD I 0156 /15757-1556 M. 015760 5555 JMP I 0155 /15760-5555 -- 015761 1557 TAD I 0157 /15761-1557 M/ 015762 3333 DCA 5733 /15762-3333 [[ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-59 015763 1533 TAD I 0133 /15763-1533 M[ 015764 3333 DCA 5733 /15764-3333 [[ 015765 1556 TAD I 0156 /15765-1556 M. 015766 3333 DCA 5733 /15766-3333 [[ 015767 1557 TAD I 0157 /15767-1557 M/ 015770 6666 6666 /15770-6666 66 015771 1533 TAD I 0133 /15771-1533 M[ 015772 6666 6666 /15772-6666 66 015773 1556 TAD I 0156 /15773-1556 M. 015774 6666 6666 /15774-6666 66 015775 1557 TAD I 0157 /15775-1557 M/ 015776 5555 JMP I 0155 /15776-5555 -- 015777 1534 TAD I 0134 /15777-1534 M\ 016000 5555 JMP I 0155 /16000-5555 -- 016001 1125 TAD 0125 /16001-1125 IU 016002 5555 JMP I 0155 /16002-5555 -- 016003 1126 TAD 0126 /16003-1126 IV 016004 5555 JMP I 0155 /16004-5555 -- 016005 1127 TAD 0127 /16005-1127 IW 016006 5555 JMP I 0155 /16006-5555 -- 016007 1130 TAD 0130 /16007-1130 IX 016010 2715 ISZ I 6115 /16010-2715 WM 016011 1131 TAD 0131 /16011-1131 IY 016012 2715 ISZ I 6115 /16012-2715 WM 016013 1132 TAD 0132 /16013-1132 IZ 016014 1346 TAD 6146 /16014-1346 K& 016015 1535 TAD I 0135 /16015-1535 M] 016016 0000 AND 0000 /16016-0000 @@ 016017 1536 TAD I 0136 /16017-1536 M^ 016020 0000 AND 0000 /16020-0000 @@ 016021 1555 TAD I 0155 /16021-1555 M- 016022 5555 JMP I 0155 /16022-5555 -- 016023 1556 TAD I 0156 /16023-1556 M. 016024 3333 DCA 6133 /16024-3333 [[ 016025 1557 TAD I 0157 /16025-1557 M/ 016026 3333 DCA 6133 /16026-3333 [[ 016027 1536 TAD I 0136 /16027-1536 M^ 016030 3333 DCA 6133 /16030-3333 [[ 016031 1555 TAD I 0155 /16031-1555 M- 016032 3333 DCA 6133 /16032-3333 [[ 016033 3736 MDJFPA, DCA I 6136 /16033-3736 _^ 016034 4006 JMS 0006 /16034-4006 F 016035 2020 ISZ 0020 /16035-2020 PP 016036 5570 JMP I 0170 /16036-5570 -8 016037 0140 AND 0140 /16037-0140 A 016040 0411 AND I 0011 /16040-0411 DI 016041 0107 AND 0107 /16041-0107 AG 016042 1617 TAD I 6017 /16042-1617 NO 016043 2324 ISZ 6124 /16043-2324 ST 016044 1103 TAD 0103 /16044-1103 IC 016045 4004 JMS 0004 /16045-4004 D 016046 1206 TAD 6006 /16046-1206 JF 016047 2001 ISZ 0001 /16047-2001 PA 016050 5502 JMP I 0102 /16050-5502 -B /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-60 016051 0000 AND 0000 /16051-0000 @@ 016052 3736 MRUNAL, DCA I 6136 /16052-3736 _^ 016053 4022 JMS 0022 /16053-4022 R 016054 2516 ISZ I 0116 /16054-2516 UN 016055 4001 JMS 0001 /16055-4001 A 016056 1414 TAD I 0014 /16056-1414 LL 016057 4024 JMS 0024 /16057-4024 T 016060 0523 AND I 0123 /16060-0523 ES 016061 2423 ISZ I 0023 /16061-2423 TS 016062 7700 SMA CLA /16062-7700 ?@ 016063 3736 MCONTI, DCA I 6136 /16063-3736 _^ 016064 4003 JMS 0003 /16064-4003 C 016065 1716 TAD I 6116 /16065-1716 ON 016066 2411 ISZ I 0011 /16066-2411 TI 016067 1625 TAD I 6025 /16067-1625 NU 016070 0540 AND I 0140 /16070-0540 E 016071 7740 SMA SZA CLA /16071-7740 ? 016072 0000 AND 0000 /16072-0000 @@ 016073 3736 MUNINT, DCA I 6136 /16073-3736 _^ 016074 4025 JMS 0025 /16074-4025 U 016075 1604 TAD I 6004 /16075-1604 ND 016076 0506 AND I 0106 /16076-0506 EF 016077 1116 TAD 0116 /16077-1116 IN 016100 0504 AND I 0104 /16100-0504 ED 016101 4011 JMS 0011 /16101-4011 I 016102 1624 TAD I 6024 /16102-1624 NT 016103 0522 AND I 0122 /16103-0522 ER 016104 2225 ISZ 6025 /16104-2225 RU 016105 2024 ISZ 0024 /16105-2024 PT 016106 4000 JMS 0000 /16106-4000 @ 016107 4040 MSREQ, JMS 0040 /16107-4040 016110 2322 ISZ 6122 /16110-2322 SR 016111 7540 SMA SZA /16111-7540 = 016112 4000 JMS 0000 /16112-4000 @ 016113 3736 MCRLF, DCA I 6136 /16113-3736 _^ 016114 4000 JMS 0000 /16114-4000 @ 016115 3736 MTSTNO, DCA I 6136 /16115-3736 _^ 016116 4005 JMS 0005 /16116-4005 E 016117 1624 TAD I 6024 /16117-1624 NT 016120 0522 AND I 0122 /16120-0522 ER 016121 4024 JMS 0024 /16121-4024 T 016122 0523 AND I 0123 /16122-0523 ES 016123 2440 ISZ I 0040 /16123-2440 T 016124 1625 TAD I 6025 /16124-1625 NU 016125 1502 TAD I 0102 /16125-1502 MB 016126 0522 AND I 0122 /16126-0522 ER 016127 4040 JMS 0040 /16127-4040 016130 0000 AND 0000 /16130-0000 @@ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-61 016131 3736 MSETSW, DCA I 6136 /16131-3736 _^ 016132 4023 JMS 0023 /16132-4023 S 016133 0524 AND I 0124 /16133-0524 ET 016134 2520 ISZ I 0120 /16134-2520 UP 016135 4003 JMS 0003 /16135-4003 C 016136 1716 TAD I 6116 /16136-1716 ON 016137 2422 ISZ I 0022 /16137-2422 TR 016140 1714 TAD I 6114 /16140-1714 OL 016141 4023 JMS 0023 /16141-4023 S 016142 2711 ISZ I 6111 /16142-2711 WI 016143 2403 ISZ I 0003 /16143-2403 TC 016144 1005 TAD 0005 /16144-1005 HE 016145 2340 ISZ 6140 /16145-2340 S 016146 7540 SMA SZA /16146-7540 = 016147 0000 AND 0000 /16147-0000 @@ 016150 4011 MINTST, JMS 0011 /16150-4011 I 016151 2340 ISZ 6140 /16151-2340 S 016152 1116 TAD 0116 /16152-1116 IN 016153 0317 AND 6117 /16153-0317 CO 016154 2222 ISZ 6022 /16154-2222 RR 016155 0503 AND I 0103 /16155-0503 EC 016156 2440 ISZ I 0040 /16156-2440 T 016157 2405 ISZ I 0005 /16157-2405 TE 016160 2324 ISZ 6124 /16160-2324 ST 016161 4016 JMS 0016 /16161-4016 N 016162 2515 ISZ I 0115 /16162-2515 UM 016163 0205 AND 6005 /16163-0205 BE 016164 2240 ISZ 6040 /16164-2240 R 016165 1417 TAD I 0017 /16165-1417 LO 016166 0340 AND 6140 /16166-0340 C 016167 0000 AND 0000 /16167-0000 @@ 016170 3736 PSHERR, DCA I 6136 /16170-3736 _^ 016171 4023 JMS 0023 /16171-4023 S 016172 2401 ISZ I 0001 /16172-2401 TA 016173 0313 AND 6113 /16173-0313 CK 016174 4020 JMS 0020 /16174-4020 P 016175 2523 ISZ I 0123 /16175-2523 US 016176 1040 TAD 0040 /16176-1040 H 016177 0522 AND I 0122 /16177-0522 ER 016200 2217 ISZ 6217 /16200-2217 RO 016201 2240 ISZ 6240 /16201-2240 R 016202 2205 ISZ 6205 /16202-2205 RE 016203 2324 ISZ 6324 /16203-2324 ST 016204 0122 AND 0122 /16204-0122 AR 016205 2411 ISZ I 0011 /16205-2411 TI 016206 1607 TAD I 6207 /16206-1607 NG 016207 4000 JMS 0000 /16207-4000 @ 016210 3736 POPERR, DCA I 6336 /16210-3736 _^ 016211 4023 JMS 0023 /16211-4023 S 016212 2401 ISZ I 0001 /16212-2401 TA 016213 0313 AND 6313 /16213-0313 CK 016214 4020 JMS 0020 /16214-4020 P /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-62 016215 1720 TAD I 6320 /16215-1720 OP 016216 4005 JMS 0005 /16216-4005 E 016217 2222 ISZ 6222 /16217-2222 RR 016220 1722 TAD I 6322 /16220-1722 OR 016221 4022 JMS 0022 /16221-4022 R 016222 0523 AND I 0123 /16222-0523 ES 016223 2401 ISZ I 0001 /16223-2401 TA 016224 2224 ISZ 6224 /16224-2224 RT 016225 1116 TAD 0116 /16225-1116 IN 016226 0740 AND I 6340 /16226-0740 G 016227 0000 AND 0000 /16227-0000 @@ 016230 3736 MSTAER, DCA I 6336 /16230-3736 _^ 016231 3640 DCA I 6240 /16231-3640 ^ 016232 0620 AND I 6220 /16232-0620 FP 016233 2040 ISZ 0040 /16233-2040 P 016234 2324 ISZ 6324 /16234-2324 ST 016235 0124 AND 0124 /16235-0124 AT 016236 2523 ISZ I 0123 /16236-2523 US 016237 4005 JMS 0005 /16237-4005 E 016240 2222 ISZ 6222 /16240-2222 RR 016241 1722 TAD I 6322 /16241-1722 OR 016242 4040 JMS 0040 /16242-4040 016243 4014 JMS 0014 /16243-4014 L 016244 1703 TAD I 6303 /16244-1703 OC 016245 7240 CLA CMA /16245-7240 : 016246 0000 AND 0000 /16246-0000 @@ 016247 3736 MSKPFG, DCA I 6336 /16247-3736 _^ 016250 4006 JMS 0006 /16250-4006 F 016251 2020 ISZ 0020 /16251-2020 PP 016252 4023 JMS 0023 /16252-4023 S 016253 1311 TAD 6311 /16253-1311 KI 016254 2040 ISZ 0040 /16254-2040 P 016255 0614 AND I 6214 /16255-0614 FL 016256 0107 AND 0107 /16256-0107 AG 016257 4005 JMS 0005 /16257-4005 E 016260 2222 ISZ 6222 /16260-2222 RR 016261 1722 TAD I 6322 /16261-1722 OR 016262 4014 JMS 0014 /16262-4014 L 016263 1703 TAD I 6303 /16263-1703 OC 016264 7240 CLA CMA /16264-7240 : 016265 0000 AND 0000 /16265-0000 @@ 016266 3736 MPCERR, DCA I 6336 /16266-3736 _^ 016267 4006 JMS 0006 /16267-4006 F 016270 2020 ISZ 0020 /16270-2020 PP 016271 4015 JMS 0015 /16271-4015 M 016272 2003 ISZ 0003 /16272-2003 PC 016273 4005 JMS 0005 /16273-4005 E 016274 2222 ISZ 6222 /16274-2222 RR 016275 1722 TAD I 6322 /16275-1722 OR 016276 4040 JMS 0040 /16276-4040 016277 4040 JMS 0040 /16277-4040 016300 4040 JMS 0040 /16300-4040 /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-63 016301 4014 JMS 0014 /16301-4014 L 016302 1703 TAD I 6303 /16302-1703 OC 016303 7240 CLA CMA /16303-7240 : 016304 0000 AND 0000 /16304-0000 @@ 016305 3736 MDBERR, DCA I 6336 /16305-3736 _^ 016306 4006 JMS 0006 /16306-4006 F 016307 2020 ISZ 0020 /16307-2020 PP 016310 4004 JMS 0004 /16310-4004 D 016311 0240 AND 6240 /16311-0240 B 016312 0522 AND I 0122 /16312-0522 ER 016313 2217 ISZ 6217 /16313-2217 RO 016314 2240 ISZ 6240 /16314-2240 R 016315 4040 JMS 0040 /16315-4040 016316 4040 JMS 0040 /16316-4040 016317 4040 JMS 0040 /16317-4040 016320 4014 JMS 0014 /16320-4014 L 016321 1703 TAD I 6303 /16321-1703 OC 016322 7240 CLA CMA /16322-7240 : 016323 0000 AND 0000 /16323-0000 @@ 016324 0103 MACFPP, AND 0103 /16324-0103 AC 016325 2425 ISZ I 0025 /16325-2425 TU 016326 0114 AND 0114 /16326-0114 AL 016327 4006 JMS 0006 /16327-4006 F 016330 2020 ISZ 0020 /16330-2020 PP 016331 0000 AND 0000 /16331-0000 @@ 016332 3736 MACTUA, DCA I 6336 /16332-3736 _^ 016333 4001 JMS 0001 /16333-4001 A 016334 0324 AND 6324 /16334-0324 CT 016335 2501 ISZ I 0101 /16335-2501 UA 016336 1472 TAD I 0072 /16336-1472 L: 016337 4000 JMS 0000 /16337-4000 @ 016340 0530 MEXPEC, AND I 0130 /16340-0530 EX 016341 2005 ISZ 0005 /16341-2005 PE 016342 0324 AND 6324 /16342-0324 CT 016343 0504 AND I 0104 /16343-0504 ED 016344 7240 CLA CMA /16344-7240 : 016345 0000 AND 0000 /16345-0000 @@ 016346 2324 MSTAT, ISZ 6324 /16346-2324 ST 016347 0124 AND 0124 /16347-0124 AT 016350 2523 ISZ I 0123 /16350-2523 US 016351 7240 CLA CMA /16351-7240 : 016352 0000 AND 0000 /16352-0000 @@ 016353 2324 MSTEP, ISZ 6324 /16353-2324 ST 016354 0520 AND I 0120 /16354-0520 EP 016355 7240 CLA CMA /16355-7240 : 016356 0000 AND 0000 /16356-0000 @@ 016357 2405 MTEST, ISZ I 0005 /16357-2405 TE 016360 2324 ISZ 6324 /16360-2324 ST /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-64 016361 7240 CLA CMA /16361-7240 : 016362 0000 AND 0000 /16362-0000 @@ 016363 0104 MADDRS, AND 0104 /16363-0104 AD 016364 0422 AND I 0022 /16364-0422 DR 016365 0523 AND I 0123 /16365-0523 ES 016366 2372 ISZ 6372 /16366-2372 S: 016367 4000 JMS 0000 /16367-4000 @ 016370 4011 MINCOR, JMS 0011 /16370-4011 I 016371 2340 ISZ 6340 /16371-2340 S 016372 1116 TAD 0116 /16372-1116 IN 016373 0317 AND 6317 /16373-0317 CO 016374 2222 ISZ 6222 /16374-2222 RR 016375 0503 AND I 0103 /16375-0503 EC 016376 2440 ISZ I 0040 /16376-2440 T 016377 0103 AND 0103 /16377-0103 AC 016400 4040 JMS 0040 /16400-4040 016401 4040 JMS 0040 /16401-4040 016402 4040 JMS 0040 /16402-4040 016403 4040 JMS 0040 /16403-4040 016404 4014 JMS 0014 /16404-4014 L 016405 1703 TAD I 6503 /16405-1703 OC 016406 4000 JMS 0000 /16406-4000 @ 016407 3736 MMCREV, DCA I 6536 /16407-3736 _^ 016410 4006 JMS 0006 /16410-4006 F 016411 2020 ISZ 0020 /16411-2020 PP 016412 4015 JMS 0015 /16412-4015 M 016413 1103 TAD 0103 /16413-1103 IC 016414 2217 ISZ 6417 /16414-2217 RO 016415 4003 JMS 0003 /16415-4003 C 016416 1704 TAD I 6504 /16416-1704 OD 016417 0540 AND I 0140 /16417-0540 E 016420 2205 ISZ 6405 /16420-2205 RE 016421 2640 ISZ I 6440 /16421-2640 V 016422 7540 SMA SZA /16422-7540 = 016423 0000 AND 0000 /16423-0000 @@ 016424 3736 MIRVRM, DCA I 6536 /16424-3736 _^ 016425 4011 JMS 0011 /16425-4011 I 016426 1603 TAD I 6403 /16426-1603 NC 016427 1722 TAD I 6522 /16427-1722 OR 016430 2205 ISZ 6405 /16430-2205 RE 016431 0324 AND 6524 /16431-0324 CT 016432 4022 JMS 0022 /16432-4022 R 016433 0526 AND I 0126 /16433-0526 EV 016434 4016 JMS 0016 /16434-4016 N 016435 2515 ISZ I 0115 /16435-2515 UM 016436 4011 JMS 0011 /16436-4011 I 016437 1640 TAD I 6440 /16437-1640 N 016440 2217 ISZ 6417 /16440-2217 RO 016441 1500 TAD I 0100 /16441-1500 M@ 016442 3736 MAPTER, DCA I 6536 /16442-3736 _^ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-65 016443 4001 JMS 0001 /16443-4001 A 016444 2024 ISZ 0024 /16444-2024 PT 016445 4024 JMS 0024 /16445-4024 T 016446 0102 AND 0102 /16446-0102 AB 016447 1405 TAD I 0005 /16447-1405 LE 016450 4005 JMS 0005 /16450-4005 E 016451 2222 ISZ 6422 /16451-2222 RR 016452 1722 TAD I 6522 /16452-1722 OR 016453 4040 JMS 0040 /16453-4040 016454 1417 TAD I 0017 /16454-1417 LO 016455 0372 AND 6572 /16455-0372 C: 016456 4000 JMS 0000 /16456-4000 @ 016457 3736 MAPTHL, DCA I 6536 /16457-3736 _^ 016460 4006 JMS 0006 /16460-4006 F 016461 1404 TAD I 0004 /16461-1404 LD 016462 4040 JMS 0040 /16462-4040 016463 0620 AND I 6420 /16463-0620 FP 016464 0340 AND 6540 /16464-0340 C 016465 4011 JMS 0011 /16465-4011 I 016466 2240 ISZ 6440 /16466-2240 R 016467 4040 JMS 0040 /16467-4040 016470 0201 AND 6401 /16470-0201 BA 016471 2305 ISZ 6505 /16471-2305 SE 016472 4017 JMS 0017 /16472-4017 O 016473 2005 ISZ 0005 /16473-2005 PE 016474 2240 ISZ 6440 /16474-2240 R 016475 0530 AND I 0130 /16475-0530 EX 016476 2040 ISZ 0040 /16476-2040 P 016477 4015 JMS 0015 /16477-4015 M 016500 2327 ISZ 6527 /16500-2327 SW 016501 4040 JMS 0040 /16501-4040 016502 1423 TAD I 0023 /16502-1423 LS 016503 2740 ISZ I 6540 /16503-2740 W 016504 4014 JMS 0014 /16504-4014 L 016505 2327 ISZ 6527 /16505-2327 SW 016506 6140 6140 /16506-6140 1 016507 1423 TAD I 0023 /16507-1423 LS 016510 2762 ISZ I 6562 /16510-2762 W2 016511 4014 JMS 0014 /16511-4014 L 016512 2327 ISZ 6527 /16512-2327 SW 016513 6337 CIF CDF 134 /16513-6337 3_ 016514 3640 DCA I 6440 /16514-3640 ^ 016515 0000 AND 0000 /16515-0000 @@ 016516 3736 MNORUN, DCA I 6536 /16516-3736 _^ 016517 4016 JMS 0016 /16517-4016 N 016520 1724 TAD I 6524 /16520-1724 OT 016521 4022 JMS 0022 /16521-4022 R 016522 2516 ISZ I 0116 /16522-2516 UN 016523 1611 TAD I 6411 /16523-1611 NI 016524 1607 TAD I 6407 /16524-1607 NG 016525 4040 JMS 0040 /16525-4040 016526 4040 JMS 0040 /16526-4040 016527 4040 JMS 0040 /16527-4040 /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-66 016530 1417 TAD I 0017 /16530-1417 LO 016531 0372 AND 6572 /16531-0372 C: 016532 4000 JMS 0000 /16532-4000 @ 016533 3736 MDATBR, DCA I 6536 /16533-3736 _^ 016534 4004 JMS 0004 /16534-4004 D 016535 0124 AND 0124 /16535-0124 AT 016536 0140 AND 0140 /16536-0140 A 016537 0222 AND 6422 /16537-0222 BR 016540 0501 AND I 0101 /16540-0501 EA 016541 1340 TAD 6540 /16541-1340 K 016542 0522 AND I 0122 /16542-0522 ER 016543 2217 ISZ 6417 /16543-2217 RO 016544 2240 ISZ 6440 /16544-2240 R 016545 4040 JMS 0040 /16545-4040 016546 1417 TAD I 0017 /16546-1417 LO 016547 0372 AND 6572 /16547-0372 C: 016550 4000 JMS 0000 /16550-4000 @ 016551 3736 MRUNIN, DCA I 6536 /16551-3736 _^ 016552 4022 JMS 0022 /16552-4022 R 016553 2516 ISZ I 0116 /16553-2516 UN 016554 1611 TAD I 6411 /16554-1611 NI 016555 1607 TAD I 6407 /16555-1607 NG 016556 3736 DCA I 6536 /16556-3736 _^ 016557 0000 AND 0000 /16557-0000 @@ 016560 4040 MBADM0, JMS 0040 /16560-4040 016561 4040 JMS 0040 /16561-4040 016562 4040 JMS 0040 /16562-4040 016563 4040 JMS 0040 /16563-4040 016564 0201 AND 6401 /16564-0201 BA 016565 0440 AND I 0040 /16565-0440 D 016566 1517 TAD I 0117 /16566-1517 MO 016567 0425 AND I 0025 /16567-0425 DU 016570 1405 TAD I 0005 /16570-1405 LE 016571 4011 JMS 0011 /16571-4011 I 016572 2340 ISZ 6540 /16572-2340 S 016573 1570 TAD I 0170 /16573-1570 M8 016574 6461 6461 /16574-6461 41 016575 6000 SKON /16575-6000 0@ 016576 4040 MBADM1, JMS 0040 /16576-4040 016577 4040 JMS 0040 /16577-4040 016600 4040 JMS 0040 /16600-4040 016601 4040 JMS 0040 /16601-4040 016602 0201 AND 6601 /16602-0201 BA 016603 0440 AND I 0040 /16603-0440 D 016604 1517 TAD I 0117 /16604-1517 MO 016605 0425 AND I 0025 /16605-0425 DU 016606 1405 TAD I 0005 /16606-1405 LE 016607 4011 JMS 0011 /16607-4011 I 016610 2340 ISZ 6740 /16610-2340 S 016611 1570 TAD I 0170 /16611-1570 M8 016612 6461 6461 /16612-6461 41 /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-67 016613 6100 6100 /16613-6100 1@ 016614 2516 MUNEXI, ISZ I 0116 /16614-2516 UN 016615 0530 AND I 0130 /16615-0530 EX 016616 2005 ISZ 0005 /16616-2005 PE 016617 0324 AND 6724 /16617-0324 CT 016620 0504 AND I 0104 /16620-0504 ED 016621 4006 JMS 0006 /16621-4006 F 016622 2020 ISZ 0020 /16622-2020 PP 016623 4011 JMS 0011 /16623-4011 I 016624 1624 TAD I 6624 /16624-1624 NT 016625 0522 AND I 0122 /16625-0522 ER 016626 2225 ISZ 6625 /16626-2225 RU 016627 2024 ISZ 0024 /16627-2024 PT 016630 4022 JMS 0022 /16630-4022 R 016631 0521 AND I 0121 /16631-0521 EQ 016632 2505 ISZ I 0105 /16632-2505 UE 016633 2324 ISZ 6724 /16633-2324 ST 016634 4014 JMS 0014 /16634-4014 L 016635 1703 TAD I 6703 /16635-1703 OC 016636 7240 CLA CMA /16636-7240 : 016637 0000 AND 0000 /16637-0000 @@ 016640 3736 MXRERR, DCA I 6736 /16640-3736 _^ 016641 4011 JMS 0011 /16641-4011 I 016642 1604 TAD I 6604 /16642-1604 ND 016643 0530 AND I 0130 /16643-0530 EX 016644 4022 JMS 0022 /16644-4022 R 016645 0507 AND I 0107 /16645-0507 EG 016646 1123 TAD 0123 /16646-1123 IS 016647 2405 ISZ I 0005 /16647-2405 TE 016650 2240 ISZ 6640 /16650-2240 R 016651 0522 AND I 0122 /16651-0522 ER 016652 2217 ISZ 6617 /16652-2217 RO 016653 2240 ISZ 6640 /16653-2240 R 016654 4040 JMS 0040 /16654-4040 016655 1417 TAD I 0017 /16655-1417 LO 016656 0372 AND 6772 /16656-0372 C: 016657 4000 JMS 0000 /16657-4000 @ 016660 3736 MINDXP, DCA I 6736 /16660-3736 _^ 016661 4011 JMS 0011 /16661-4011 I 016662 2260 ISZ 6660 /16662-2260 R0 016663 4040 JMS 0040 /16663-4040 016664 1122 TAD 0122 /16664-1122 IR 016665 6140 6140 /16665-6140 1 016666 4011 JMS 0011 /16666-4011 I 016667 2262 ISZ 6662 /16667-2262 R2 016670 4040 JMS 0040 /16670-4040 016671 1122 TAD 0122 /16671-1122 IR 016672 6340 6340 /16672-6340 3 016673 4011 JMS 0011 /16673-4011 I 016674 2264 ISZ 6664 /16674-2264 R4 016675 4040 JMS 0040 /16675-4040 016676 1122 TAD 0122 /16676-1122 IR /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-68 016677 6540 6540 /16677-6540 5 016700 4011 JMS 0011 /16700-4011 I 016701 2266 ISZ 6666 /16701-2266 R6 016702 4040 JMS 0040 /16702-4040 016703 1122 TAD 0122 /16703-1122 IR 016704 6740 6740 /16704-6740 7 016705 3736 DCA I 6736 /16705-3736 _^ 016706 4000 JMS 0000 /16706-4000 @ 016707 3736 MPWRLO, DCA I 6736 /16707-3736 _^ 016710 4020 JMS 0020 /16710-4020 P 016711 1727 TAD I 6727 /16711-1727 OW 016712 0522 AND I 0122 /16712-0522 ER 016713 4014 JMS 0014 /16713-4014 L 016714 1727 TAD I 6727 /16714-1727 OW 016715 4006 JMS 0006 /16715-4006 F 016716 1401 TAD I 0001 /16716-1401 LA 016717 0740 AND I 6740 /16717-0740 G 016720 2305 ISZ 6705 /16720-2305 SE 016721 2440 ISZ I 0040 /16721-2440 T 016722 2205 ISZ 6605 /16722-2205 RE 016723 2324 ISZ 6724 /16723-2324 ST 016724 0122 AND 0122 /16724-0122 AR 016725 2411 ISZ I 0011 /16725-2411 TI 016726 1607 TAD I 6607 /16726-1607 NG 016727 0000 AND 0000 /16727-0000 @@ 016730 0412 MDJPAS, AND I 0012 /16730-0412 DJ 016731 0620 AND I 6620 /16731-0620 FP 016732 0155 AND 0155 /16732-0155 A- 016733 0240 AND 6640 /16733-0240 B 016734 2001 ISZ 0001 /16734-2001 PA 016735 2323 ISZ 6723 /16735-2323 SS 016736 0000 AND 0000 /16736-0000 @@ 016737 2405 MTST24, ISZ I 0005 /16737-2405 TE 016740 2324 ISZ 6724 /16740-2324 ST 016741 4062 JMS 0062 /16741-4062 2 016742 6440 6440 /16742-6440 4 016743 3736 DCA I 6736 /16743-3736 _^ 016744 0000 AND 0000 /16744-0000 @@ 016745 5723 JMP I 6723 /16745-5723 /S 016746 0002 AND 0002 /16746-0002 @B 016747 7607 CLA DVI /16747-7607 >G 016750 7402 HLT /16750-7402 <B 016751 1346 TAD 6746 /16751-1346 K& 016752 5737 JMP I 6737 /16752-5737 /_ 016753 0200 AND 6600 /16753-0200 B@ 016754 5000 JMP 0000 /16754-5000 (@ 016755 2513 ISZ I 0113 /16755-2513 UK 016756 2516 ISZ I 0116 /16756-2516 UN 016757 5152 JMP 0152 /16757-5152 )* 016760 5015 JMP 0015 /16760-5015 (M 016761 5124 JMP 0124 /16761-5124 )T /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-69 016762 6135 6135 /16762-6135 1] 016763 0007 AND 0007 /16763-0007 @G 016764 7771 MQA MQL CLA DPSZ /16764-7771 ?9 016765 6546 6546 /16765-6546 5& 016766 0003 AND 0003 /16766-0003 @C 016767 6550 6550 /16767-6550 5( 016770 6547 6547 /16770-6547 5' 016771 0037 AND 0037 /16771-0037 @_ 016772 6340 6340 /16772-6340 3 016773 0106 AND 0106 /16773-0106 AF 016774 6337 CIF CDF 134 /16774-6337 3_ 016775 6037 6037 /16775-6037 0_ 016776 0017 AND 0017 /16776-0017 @O 016777 7666 SZA SNL CLA OSR HLT /16777-7666 >6 0000 FIELD 0 0000 *0000 000000 0302 302 /00000-0302 CB 000001 5402 JMP I .+1 /00001-5402 ,B 000002 0400 INTRPT /00002-0400 D@ 000003 2741 2741 /00003-2741 W! 000004 7402 HLT /00004-7402 <B 000005 7402 HLT /00005-7402 <B 000006 7402 HLT /00006-7402 <B 000007 7402 HLT /00007-7402 <B 000010 0000 STACK, AND 0000 /00010-0000 @@ 000011 0000 AND 0000 /00011-0000 @@ 000012 0000 AND 0000 /00012-0000 @@ 000013 0000 AND 0000 /00013-0000 @@ 000014 0000 AND 0000 /00014-0000 @@ 000015 7777 MQA MQL CLA SAM /00015-7777 ?? 000016 0000 AND 0000 /00016-0000 @@ 000017 0000 AND 0000 /00017-0000 @@ 000020 0000 OPTS, AND 0000 /00020-0000 @@ 000021 0000 AND 0000 /00021-0000 @@ 000022 0000 X8MOD, AND 0000 /00022-0000 @@ 000023 0000 AND 0000 /00023-0000 @@ 000024 0000 AND 0000 /00024-0000 @@ 000025 0000 AND 0000 /00025-0000 @@ 000026 0000 AND 0000 /00026-0000 @@ 000027 0000 AND 0000 /00027-0000 @@ 000030 0000 AND 0000 /00030-0000 @@ 000031 0000 AND 0000 /00031-0000 @@ 000032 0000 AND 0000 /00032-0000 @@ 000033 0000 AND 0000 /00033-0000 @@ 000034 0000 AND 0000 /00034-0000 @@ 000035 0000 AND 0000 /00035-0000 @@ 000036 1505 XOPT, OPTRED /00036-1505 ME 000037 1242 MSG, MESG /00037-1242 J" 000040 1400 PUSH, PSHRTE /00040-1400 L@ 000041 1406 POP, POPRTE /00041-1406 LF 000042 0600 GETC, CGET /00042-0600 F@ 000043 0531 NUMPRT, PRTNUM /00043-0531 EY 000044 0505 LOOP, WAIT /00044-0505 EE /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-70 000045 1203 CHRPRT, PRTCHR /00045-1203 JC 000046 0731 0731 /00046-0731 GY 000047 1322 1322 /00047-1322 KR 000050 1343 STSMSG, MSGSTS /00050-1343 K# 000051 1523 PREAPT, APTPRE /00051-1523 MS 000052 1634 SKFGPR, PRSKFG /00052-1634 N\ 000053 1671 CKSTAT, STATCK /00053-1671 N9 000054 2011 RDREGS, REGSRD /00054-2011 PI 000055 2200 ACBAD, BADAC /00055-2200 R@ 000056 2231 BRKERR, ERRBRK /00056-2231 RY 000057 2312 ABORT, ORTAB /00057-2312 SJ 000060 2344 NORUN, RUNNO /00060-2344 S$ 000061 2471 CHKAPT, APTCHK /00061-2471 T9 000062 2617 CHKIDX, IDXCHK /00062-2617 VO 000063 2400 ROMVER, VERROM /00063-2400 T@ 000064 0747 XX8, X8TST /00064-0747 G' 000065 3055 SETENV, ENVSET /00065-3055 X- 000066 0001 C1, 1 /00066-0001 @A 000067 0003 C3, 3 /00067-0003 @C 000070 0004 C4, 4 /00070-0004 @D 000071 0005 C5, 5 /00071-0005 @E 000072 0007 C7, 7 /00072-0007 @G 000073 0011 C11, 11 /00073-0011 @I 000074 0012 C12, 12 /00074-0012 @J 000075 0015 C15, 15 /00075-0015 @M 000076 0023 C23, 23 /00076-0023 @S 000077 0077 C77, 77 /00077-0077 @? 000100 0177 C177, 177 /00100-0177 A? 000101 0200 C200, START /00101-0200 B@ ALSO 200 000102 0260 C260, 260 /00102-0260 B0 000103 0277 C277, 277 /00103-0277 B? 000104 1000 C1000, 1000 /00104-1000 H@ 000105 2000 C2000, 2000 /00105-2000 P@ 000106 3777 C3777, 3777 /00106-3777 _? 000107 4000 C4000, 4000 /00107-4000 @ 000110 5777 C5777, 5777 /00110-5777 /? 000111 7700 C7700, 7700 /00111-7700 ?@ 000112 7755 CM23, -23 /00112-7755 ?- 000113 7765 CM13, -13 /00113-7765 ?5 000114 7766 CM12, -12 /00114-7766 ?6 000115 7777 C7777, 7777 /00115-7777 ?? 000116 0000 INFLAG, AND 0000 /00116-0000 @@ 000117 0000 QFLAG, AND 0000 /00117-0000 @@ 000120 0000 AND 0000 /00120-0000 @@ 000121 0000 CTGONC, AND 0000 /00121-0000 @@ 000122 0000 TSTNUM, AND 0000 /00122-0000 @@ 000123 0000 NALL, AND 0000 /00123-0000 @@ 000124 0000 INPUT, AND 0000 /00124-0000 @@ 000125 0000 AC, AND 0000 /00125-0000 @@ 000126 0000 MQ, AND 0000 /00126-0000 @@ 000127 0000 GTFS, AND 0000 /00127-0000 @@ 000130 0000 AC1, AND 0000 /00130-0000 @@ 000131 0000 MQ1, AND 0000 /00131-0000 @@ 000132 0000 GTFS1, AND 0000 /00132-0000 @@ 000133 0000 AC2, AND 0000 /00133-0000 @@ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-71 000134 0000 MQ2, AND 0000 /00134-0000 @@ 000135 0000 GTFS2, AND 0000 /00135-0000 @@ 000136 0000 NUMLEN, AND 0000 /00136-0000 @@ 000137 0000 CNT, AND 0000 /00137-0000 @@ 000140 0000 AND 0000 /00140-0000 @@ 000141 0000 AND 0000 /00141-0000 @@ 000142 0000 OCTNUM, AND 0000 /00142-0000 @@ 000143 0000 MSGSWI, AND 0000 /00143-0000 @@ 000144 0000 ONCONL, AND 0000 /00144-0000 @@ 000145 0000 CNTSTP, AND 0000 /00145-0000 @@ 000146 7200 APTP, APT /00146-7200 :@ 000147 0000 STATUS, AND 0000 /00147-0000 @@ 000150 0000 MPC, AND 0000 /00150-0000 @@ 000151 0000 MDB, AND 0000 /00151-0000 @@ 000152 0000 AND 0000 /00152-0000 @@ 000153 0000 TSTC, AND 0000 /00153-0000 @@ 000154 0000 TSTN, AND 0000 /00154-0000 @@ 000155 0000 TSTL, AND 0000 /00155-0000 @@ 000156 0000 CODE, AND 0000 /00156-0000 @@ 000157 0000 MCODE, AND 0000 /00157-0000 @@ 000160 0000 INTTEM, AND 0000 /00160-0000 @@ 000161 6203 CIFCDF, CIF CDF 0 /00161-6203 2C 000162 2370 C2370, EXPEX FPCON LOCON /00162-2370 S8 000163 2770 C2770, EXPEX FPENA FPCON LOCON /00163-2770 W8 000164 6410 C6410, DPSEL EXPEX FPENA LOCON /00164-6410 4H 000165 2410 C2410, EXPEX FPENA LOCON /00165-2410 TH 000166 2760 C2760, EXPEX FPENA FPCON /00166-2760 W0 000167 6400 C6400, DPSEL EXPEX FPENA /00167-6400 4@ 000170 7477 MQL SAM /00170-7477 <? 000171 7766 SMA SZA SNL CLA OSR HLT /00171-7766 ?6 000172 7776 SPA SNA SZL CLA OSR HLT /00172-7776 ?> 000173 7522 SMA SNL HLT /00173-7522 =R 000174 0240 0240 /00174-0240 B 000175 7540 SMA SZA /00175-7540 = 000176 0034 AND 0034 /00176-0034 @\ 000177 7000 NOP /00177-7000 8@ 0200 PAGE 000200 6007 START, CAF /00200-6007 0G 000201 7621 MQL CLA /00201-7621 >Q 000202 4343 JMS INIT /00202-4343 ## 000203 6001 ION /00203-6001 0A 000204 1022 TAD X8MOD /00204-1022 HR 000205 7700 SMA CLA /00205-7700 ?@ 000206 5211 JMP 0211 /00206-5211 *I 000207 2144 ISZ ONCONL /00207-2144 Q$ 000210 5777 JMP I 0377 /00210-5777 /? 000211 4437 JMS I MSG /00211-4437 $_ 000212 6033 MDJFPA /00212-6033 0[ 000213 4437 JMS I MSG /00213-4437 $_ 000214 6052 MRUNAL /00214-6052 0* 000215 4442 JMS I GETC /00215-4442 $" 000216 5223 JMP XTST /00216-5223 *S NO 000217 5213 JMP 0213 /00217-5213 *K ERROR 000220 5213 JMP 0213 /00220-5213 *K RETURN /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-72 000221 3122 DCA TSTNUM /00221-3122 YR YES 000222 5235 JMP XSET /00222-5235 *] 000223 4437 XTST, JMS I MSG /00223-4437 $_ 000224 6115 MTSTNO /00224-6115 1M 000225 4442 JMS I GETC /00225-4442 $" 000226 5223 JMP XTST /00226-5223 *S NO 000227 5223 JMP XTST /00227-5223 *S ERROR 000230 7410 SKP /00230-7410 <H RETURN 000231 5223 JMP XTST /00231-5223 *S YES 000232 1142 TAD OCTNUM /00232-1142 I" 000233 3122 DCA TSTNUM /00233-3122 YR 000234 2123 ISZ NALL /00234-2123 QS 000235 4437 XSET, JMS I MSG /00235-4437 $_ 000236 6131 MSETSW /00236-6131 1Y 000237 4436 JMS I XOPT /00237-4436 $^ 000240 4443 JMS I NUMPRT /00240-4443 $# 000241 1021 TAD 0021 /00241-1021 HQ 000242 7700 SMA CLA /00242-7700 ?@ 000243 5253 JMP 0253 /00243-5253 *+ 000244 4437 JMS I MSG /00244-4437 $_ 000245 6063 MCONTI /00245-6063 03 000246 4442 JMS I GETC /00246-4442 $" 000247 7000 NOP /00247-7000 8@ NO 000250 7000 NOP /00250-7000 8@ ERROR 000251 7000 NOP /00251-7000 8@ RETURN 000252 5266 JMP XRUN /00252-5266 *6 YES 000253 4442 JMS I GETC /00253-4442 $" 000254 5274 JMP XCONT /00254-5274 *< NO 000255 5235 JMP XSET /00255-5235 *] ERROR 000256 7410 SKP /00256-7410 <H RETURN 000257 5235 JMP XSET /00257-5235 *] YES 000260 1136 TAD NUMLEN /00260-1136 I^ 000261 1070 TAD C4 /00261-1070 H8 000262 7710 SPA CLA /00262-7710 ?H 000263 5266 JMP XRUN /00263-5266 *6 000264 1142 TAD OCTNUM /00264-1142 I" 000265 3020 DCA OPTS /00265-3020 XP 000266 4437 XRUN, JMS I MSG /00266-4437 $_ 000267 6551 MRUNIN /00267-6551 5) 000270 1123 TAD NALL /00270-1123 IS 000271 7640 SZA CLA /00271-7640 > 000272 5303 JMP XALL /00272-5303 +C 000273 5777 JMP I (TST1 /00273-5777 /? 000274 7307 XCONT, CLA CLL IAC RTL /00274-7307 ;G 000275 1136 TAD NUMLEN /00275-1136 I^ 000276 7710 SPA CLA /00276-7710 ?H 000277 5501 JMP I C200 /00277-5501 -A 000300 1142 TAD OCTNUM /00300-1142 I" 000301 3020 DCA OPTS /00301-3020 XP 000302 5501 JMP I C200 /00302-5501 -A 000303 3153 XALL, DCA TSTC /00303-3153 Y+ 000304 1376 TAD (TSNLST /00304-1376 K> 000305 3154 DCA TSTN /00305-3154 Y, 000306 1375 TAD (TSTLST /00306-1375 K= 000307 3155 DCA TSTL /00307-3155 Y- /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-73 000310 4311 JMS NEXTST /00310-4311 #I 000311 7402 NEXTST, HLT /00311-7402 <B 000312 1554 TAD I TSTN /00312-1554 M, 000313 7450 SNA /00313-7450 <( 000314 5324 JMP 0324 /00314-5324 +T 000315 1122 TAD TSTNUM /00315-1122 IR 000316 7650 SNA CLA /00316-7650 >( 000317 5334 JMP NEXOK /00317-5334 +\ 000320 2153 ISZ TSTC /00320-2153 Q+ 000321 2154 ISZ TSTN /00321-2154 Q, 000322 5312 JMP 0312 /00322-5312 +J 000323 4460 JMS I NORUN /00323-4460 $0 000324 1122 TAD TSTNUM /00324-1122 IR 000325 4443 JMS I NUMPRT /00325-4443 $# 000326 4437 JMS I MSG /00326-4437 $_ 000327 6150 MINTST /00327-6150 1( 000330 7240 CLA CMA /00330-7240 : 000331 1311 TAD NEXTST /00331-1311 KI 000332 4443 JMS I NUMPRT /00332-4443 $# 000333 5223 JMP 0223 /00333-5223 *S 000334 1155 NEXOK, TAD TSTL /00334-1155 I- 000335 1153 TAD TSTC /00335-1153 I+ 000336 3342 DCA NEXIND /00336-3342 [" 000337 1742 TAD I NEXIND /00337-1742 O" 000340 3342 DCA NEXIND /00340-3342 [" 000341 5742 JMP I NEXIND /00341-5742 /" 000342 0000 NEXIND, AND 0000 /00342-0000 @@ 000343 7402 INIT, HLT /00343-7402 <B 000344 6203 CIF CDF 0 /00344-6203 2C 000345 1374 TAD (-4 /00345-1374 K< 000346 3773 DCA I (CM4 /00346-3773 _; 000347 3123 DCA NALL /00347-3123 YS 000350 3145 DCA CNTSTP /00350-3145 Y% 000351 3116 DCA INFLAG /00351-3116 YN 000352 1076 TAD C23 /00352-1076 H> 000353 3010 DCA STACK /00353-3010 XH 000354 3117 DCA QFLAG /00354-3117 YO 000355 3120 DCA 0120 /00355-3120 YP 000356 3121 DCA CTGONC /00356-3121 YQ 000357 3143 DCA MSGSWI /00357-3143 Y# 000360 3144 DCA ONCONL /00360-3144 Y$ 000361 3152 DCA 0152 /00361-3152 Y* 000362 3772 DCA I 0372 /00362-3772 _: 000363 5743 JMP I INIT /00363-5743 /# 000364 7700 SMA CLA /00364-7700 ?@ 000365 0000 AND 0000 /00365-0000 @@ 000366 5337 JMP 0337 /00366-5337 +_ 000367 1400 TAD I 0000 /00367-1400 L@ 000370 1413 TAD I 0013 /00370-1413 LK 000371 7450 SNA /00371-7450 <( 000372 3054 DCA 0054 /00372-3054 X, /DCA 0051 /00373-3051 X) /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-74 /SPA SNA SZL CLA OSR /00374-7774 ?< /JMP I 0123 /00375-5523 -S /JMP I 0076 /00376-5476 ,> /DCA 0200 /00377-3200 Z@ 000373 3051 000374 7774 000375 5523 000376 5476 000377 3200 0400 PAGE 000400 6102 INTRPT, SPL /00400-6102 1B 000401 7410 SKP /00401-7410 <H 000402 5777 JMP I (INTSPL /00402-5777 /? 000403 3125 DCA AC /00403-3125 YU 000404 6004 GTF /00404-6004 0D 000405 3127 DCA GTFS /00405-3127 YW 000406 7701 MQA CLA /00406-7701 ?A 000407 3126 DCA MQ /00407-3126 YV 000410 7621 MQL CLA /00410-7621 >Q 000411 4440 JMS I 0040 /00411-4440 $ 000412 6041 TSF /00412-6041 0! 000413 7410 SKP /00413-7410 <H 000414 5776 JMP I (INTTSF /00414-5776 /> 000415 6031 KSF /00415-6031 0Y 000416 7410 SKP /00416-7410 <H 000417 5775 JMP I (INTKSF /00417-5775 /= 000420 6557 FPIST /00420-6557 5/ 000421 7410 SKP /00421-7410 <H 000422 5774 JMP I (INTFPI /00422-5774 /< 000423 6007 CAF /00423-6007 0G 000424 1000 TAD 0000 /00424-1000 H@ 000425 3160 DCA INTTEM /00425-3160 Y0 000426 1373 TAD (.-3 /00426-1373 K; 000427 4464 JMS I XX8 /00427-4464 $4 000430 4437 JMS I MSG /00430-4437 $_ 000431 6073 MUNINT /00431-6073 0; 000432 1160 TAD INTTEM /00432-1160 I0 000433 4443 JMS I NUMPRT /00433-4443 $# 000434 4447 JMS I 0047 /00434-4447 $' 000435 7410 SKP /00435-7410 <H 000436 5501 JMP I C200 /00436-5501 -A 000437 4772 JMS I (INIT /00437-4772 ': 000440 5771 JMP I (XRUN /00440-5771 /9 000441 7300 RETRN0, CLA CLL /00441-7300 ;@ 000442 1126 TAD MQ /00442-1126 IV 000443 7421 MQL /00443-7421 <Q 000444 6030 KCF /00444-6030 0X 000445 1127 TAD GTFS /00445-1127 IW 000446 6005 RTF /00446-6005 0E 000447 7200 CLA /00447-7200 :@ 000450 1125 TAD AC /00450-1125 IU 000451 5400 JMP I 0000 /00451-5400 ,@ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-75 000452 7300 RETRN1, CLA CLL /00452-7300 ;@ 000453 1131 TAD MQ1 /00453-1131 IY 000454 7421 MQL /00454-7421 <Q 000455 6030 KCF /00455-6030 0X 000456 1132 TAD GTFS1 /00456-1132 IZ 000457 6005 RTF /00457-6005 0E 000460 7200 CLA /00460-7200 :@ 000461 1130 TAD AC1 /00461-1130 IX 000462 5400 JMP I 0000 /00462-5400 ,@ 000463 7300 RETRN2, CLA CLL /00463-7300 ;@ 000464 1134 TAD MQ2 /00464-1134 I\ 000465 7421 MQL /00465-7421 <Q 000466 6030 KCF /00466-6030 0X 000467 1135 TAD GTFS2 /00467-1135 I] 000470 6005 RTF /00470-6005 0E 000471 7200 CLA /00471-7200 :@ 000472 1133 TAD AC2 /00472-1133 I[ 000473 5400 JMP I 0000 /00473-5400 ,@ 000474 7402 SAV2, HLT /00474-7402 <B 000475 7200 CLA /00475-7200 :@ 000476 1125 TAD AC /00476-1125 IU 000477 3133 DCA AC2 /00477-3133 Y[ 000500 1126 TAD MQ /00500-1126 IV 000501 3134 DCA MQ2 /00501-3134 Y\ 000502 1127 TAD GTFS /00502-1127 IW 000503 3135 DCA GTFS2 /00503-3135 Y] 000504 5674 JMP I SAV2 /00504-5674 .< 000505 7402 WAIT, HLT /00505-7402 <B 000506 6001 ION /00506-6001 0A 000507 1152 TAD 0152 /00507-1152 I* 000510 7640 SZA CLA /00510-7640 > 000511 5323 JMP LP2 /00511-5323 +S 000512 7344 CLA CLL CMA RAL /00512-7344 ;$ 000513 7004 LP1, RAL /00513-7004 8D 000514 2330 ISZ SPIN /00514-2330 SX 000515 5314 JMP .-1 /00515-5314 +L 000516 2330 ISZ SPIN /00516-2330 SX 000517 5316 JMP .-1 /00517-5316 +N 000520 2330 ISZ SPIN /00520-2330 SX 000521 5320 JMP .-1 /00521-5320 +P 000522 5313 JMP LP1 /00522-5313 +K 000523 1150 LP2, TAD MPC /00523-1150 I( 000524 7421 MQL /00524-7421 <Q 000525 7200 CLA /00525-7200 :@ 000526 1151 TAD MDB /00526-1151 I) 000527 5325 JMP .-2 /00527-5325 +U 000530 0000 SPIN, AND 0000 /00530-0000 @@ 000531 7402 PRTNUM, HLT /00531-7402 <B 000532 3140 DCA 0140 /00532-3140 Y 000533 1143 TAD MSGSWI /00533-1143 I# 000534 1107 TAD C4000 /00534-1107 IG /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-76 000535 3143 DCA MSGSWI /00535-3143 Y# 000536 1370 TAD M4 /00536-1370 K8 000537 3362 DCA NUMCNT /00537-3362 [2 000540 1140 TAD 0140 /00540-1140 I 000541 7006 RTL /00541-7006 8F 000542 7004 RAL /00542-7004 8D 000543 3140 DCA 0140 /00543-3140 Y 000544 1140 TAD 0140 /00544-1140 I 000545 7004 RAL /00545-7004 8D 000546 0072 AND C7 /00546-0072 @: 000547 1102 TAD C260 /00547-1102 IB 000550 4445 JMS I CHRPRT /00550-4445 $% 000551 2362 ISZ NUMCNT /00551-2362 S2 000552 5340 JMP 0540 /00552-5340 + 000553 1361 TAD NUMSPC /00553-1361 K1 000554 4445 JMS I CHRPRT /00554-4445 $% 000555 1143 TAD MSGSWI /00555-1143 I# 000556 0106 AND C3777 /00556-0106 AF 000557 3143 DCA MSGSWI /00557-3143 Y# 000560 5731 JMP I PRTNUM /00560-5731 /Y 000561 0240 NUMSPC, 240 /00561-0240 B 000562 0000 NUMCNT, AND 0000 /00562-0000 @@ 000563 2503 ISZ I 0103 /00563-2503 UC 000564 0026 AND 0026 /00564-0026 @V 000565 0562 AND I 0162 /00565-0562 E2 000566 0032 AND 0032 /00566-0032 @Z 000567 0522 AND I 0122 /00567-0522 ER 000570 7774 M4, -4 /00570-7774 ?< /AND 0466 /00571-0266 B6 /AND 0543 /00572-0343 C# /AND I 0023 /00573-0423 DS /TAD I 0400 /00574-1600 N@ /TAD 0000 /00575-1000 H@ /TAD 0430 /00576-1230 JX /ISZ I 0537 /00577-2737 W_ 000571 0266 000572 0343 000573 0423 000574 1600 000575 1000 000576 1230 000577 2737 0600 PAGE 000600 7402 CGET, HLT /00600-7402 <B 000601 7200 CLA /00601-7200 :@ 000602 1325 TAD CM5 /00602-1325 KU 000603 3136 DCA NUMLEN /00603-3136 Y^ 000604 3142 DCA OCTNUM /00604-3142 Y" 000605 2116 ISZ INFLAG /00605-2116 QN 000606 1143 TAD MSGSWI /00606-1143 I# 000607 0105 AND C2000 /00607-0105 AE 000610 7640 SZA CLA /00610-7640 > 000611 5213 JMP 0613 /00611-5213 *K /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-77 000612 4444 JMS I LOOP /00612-4444 $$ 000613 1143 TAD MSGSWI /00613-1143 I# 000614 0110 AND C5777 /00614-0110 AH 000615 3143 DCA MSGSWI /00615-3143 Y# 000616 1377 TAD (WAIT+1 /00616-1377 K? 000617 3000 DCA 0000 /00617-3000 X@ 000620 4440 JMS I PUSH /00620-4440 $ 000621 3143 DCA MSGSWI /00621-3143 Y# 000622 1124 TAD INPUT /00622-1124 IT 000623 5224 JMP .+1 /00623-5224 *T 000624 1326 CGETY, TAD CM331 /00624-1326 KV 331 Y 000625 7450 SNA /00625-7450 <( 000626 5275 JMP CGY /00626-5275 *= 000627 1330 TAD C13 /00627-1330 KX 316 N 000630 7450 SNA /00630-7450 <( 000631 5300 JMP CGN /00631-5300 +@ 000632 1327 TAD C101 /00632-1327 KW 215 CR 000633 7450 SNA /00633-7450 <( 000634 5310 JMP CGCR /00634-5310 +H 000635 1067 TAD C3 /00635-1067 H7 212 LF 000636 7650 SNA CLA /00636-7650 >( 000637 5313 JMP CGLF /00637-5313 +K 000640 1124 TAD INPUT /00640-1124 IT 000641 1376 TAD (-260 /00641-1376 K> 0 000642 7710 SPA CLA /00642-7710 ?H 000643 5303 JMP CGERR /00643-5303 +C 000644 1124 TAD INPUT /00644-1124 IT 000645 1375 TAD (-270 /00645-1375 K= 8 000646 7700 SMA CLA /00646-7700 ?@ 000647 5303 JMP CGERR /00647-5303 +C 000650 2136 ISZ NUMLEN /00650-2136 Q^ 000651 5260 JMP CGNUM /00651-5260 *0 000652 4774 JMS I (SAV2 /00652-4774 '< 000653 1124 TAD INPUT /00653-1124 IT 000654 4445 JMS I CHRPRT /00654-4445 $% 000655 1103 TAD C277 /00655-1103 IC 000656 4445 JMS I CHRPRT /00656-4445 $% 000657 5316 JMP CGRET1 /00657-5316 +N 000660 1142 CGNUM, TAD OCTNUM /00660-1142 I" 000661 7106 CLL RTL /00661-7106 9F 000662 7004 RAL /00662-7004 8D 000663 3142 DCA OCTNUM /00663-3142 Y" 000664 1124 TAD INPUT /00664-1124 IT 000665 0072 AND C7 /00665-0072 @: 000666 1142 TAD OCTNUM /00666-1142 I" 000667 3142 DCA OCTNUM /00667-3142 Y" 000670 4774 JMS I (SAV2 /00670-4774 '< 000671 1124 TAD INPUT /00671-1124 IT 000672 4445 JMS I CHRPRT /00672-4445 $% 000673 4441 JMS I POP /00673-4441 $! 000674 5773 JMP I (RETRN2 /00674-5773 /; 000675 1124 CGY, TAD INPUT /00675-1124 IT 000676 4445 JMS I CHRPRT /00676-4445 $% 000677 5314 JMP CGRET3 /00677-5314 +L 000700 1124 CGN, TAD INPUT /00700-1124 IT /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-78 000701 4445 JMS I CHRPRT /00701-4445 $% 000702 5317 JMP CGRET0 /00702-5317 +O 000703 1124 CGERR, TAD INPUT /00703-1124 IT 000704 4445 JMS I CHRPRT /00704-4445 $% 000705 1103 TAD C277 /00705-1103 IC 000706 4445 JMS I CHRPRT /00706-4445 $% 000707 5316 JMP CGRET1 /00707-5316 +N 000710 4437 CGCR, JMS I MSG /00710-4437 $_ 000711 6113 MCRLF /00711-6113 1K 000712 5315 JMP CGRET2 /00712-5315 +M 000713 5317 CGLF, JMP CGRET0 /00713-5317 +O 000714 2200 CGRET3, ISZ CGET /00714-2200 R@ YES 000715 2200 CGRET2, ISZ CGET /00715-2200 R@ RETURN 000716 2200 CGRET1, ISZ CGET /00716-2200 R@ ERROR 000717 4441 CGRET0, JMS I POP /00717-4441 $! NO 000720 3116 DCA INFLAG /00720-3116 YN 000721 4437 JMS I MSG /00721-4437 $_ 000722 6113 MCRLF /00722-6113 1K 000723 6001 ION /00723-6001 0A 000724 5600 JMP I CGET /00724-5600 .@ 000725 7773 CM5, MQA MQL CLA DPIC /00725-7773 ?; 000726 7447 CM331, SWBA /00726-7447 <' 000727 0101 C101, AND C200 /00727-0101 AA 000730 0013 C13, AND 0013 /00730-0013 @K 000731 7402 HLT /00731-7402 <B 000732 7200 CLA /00732-7200 :@ 000733 1143 TAD MSGSWI /00733-1143 I# 000734 0105 AND C2000 /00734-0105 AE 000735 7640 SZA CLA /00735-7640 > 000736 7410 SKP /00736-7410 <H 000737 5731 JMP I 0731 /00737-5731 /Y 000740 1143 TAD MSGSWI /00740-1143 I# 000741 0110 AND C5777 /00741-0110 AH 000742 3143 DCA MSGSWI /00742-3143 Y# 000743 1331 TAD 0731 /00743-1331 KY 000744 3000 DCA 0000 /00744-3000 X@ 000745 4440 JMS I PUSH /00745-4440 $ 000746 5772 JMP I 0772 /00746-5772 /: 000747 7402 X8TST, HLT /00747-7402 <B 000750 3362 DCA 0762 /00750-3362 [2 000751 1022 TAD X8MOD /00751-1022 HR 000752 7700 SMA CLA /00752-7700 ?@ 000753 5747 JMP I 0747 /00753-5747 /' 000754 6002 IOF /00754-6002 0B 000755 7240 CLA CMA /00755-7240 : 000756 1362 TAD 0762 /00756-1362 K2 000757 6272 CIF 70 /00757-6272 2: 000760 5771 JMP I 0771 /00760-5771 /9 000761 7402 HLT /00761-7402 <B 000762 0000 AND 0000 /00762-0000 @@ 000763 0077 AND 0077 /00763-0077 @? 000764 0037 AND MSG /00764-0037 @_ 000765 7477 MQL SAM /00765-7477 <? /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-79 000766 7540 SMA SZA /00766-7540 = 000767 0777 AND I 0777 /00767-0777 G? 000770 0330 AND 0730 /00770-0330 CX 000771 6520 6520 /00771-6520 5P 000772 1004 TAD 0004 /00772-1004 HD /AND I 0063 /00773-0463 D3 /AND I 0074 /00774-0474 D< /SPA /00775-7510 =H /SMA SNL /00776-7520 =P /AND I 0106 /00777-0506 EF 000773 0463 000774 0474 000775 7510 000776 7520 000777 0506 1000 PAGE 001000 6036 INTKSF, KRB /01000-6036 0^ 001001 0100 AND C177 /01001-0100 A@ 001002 1101 TAD C200 /01002-1101 IA 001003 3124 DCA INPUT /01003-3124 YT 001004 1124 TAD INPUT /01004-1124 IT 001005 1377 TAD (-223 /01005-1377 K? ^S 001006 7450 SNA /01006-7450 <( 001007 5776 JMP I (CTRLS /01007-5776 /> 001010 1375 TAD (2 /01010-1375 K= ^Q 001011 7450 SNA /01011-7450 <( 001012 5332 JMP CTRLQ /01012-5332 +Z 001013 1074 TAD C12 /01013-1074 H< 001014 7450 SNA /01014-7450 <( 001015 5255 JMP CTRLG /01015-5255 *- ^G BELL 001016 1070 TAD C4 /01016-1070 H8 001017 7650 SNA CLA /01017-7650 >( 001020 5250 JMP 1050 /01020-5250 *( ^C 001021 1116 TAD INFLAG /01021-1116 IN 001022 7640 SZA CLA /01022-7640 > 001023 5246 JMP GETOUT /01023-5246 *& 001024 1143 TAD MSGSWI /01024-1143 I# 001025 7640 SZA CLA /01025-7640 > 001026 5240 JMP 1040 /01026-5240 * 001027 4774 JMS I (SAV2 /01027-4774 '< 001030 1124 TAD INPUT /01030-1124 IT 001031 4445 JMS I CHRPRT /01031-4445 $% 001032 1103 TAD C277 /01032-1103 IC 001033 4445 JMS I CHRPRT /01033-4445 $% 001034 4437 JMS I MSG /01034-4437 $_ 001035 6113 MCRLF /01035-6113 1K 001036 4441 JMS I POP /01036-4441 $! 001037 5773 JMP I (RETRN2 /01037-5773 /; 001040 1143 TAD MSGSWI /01040-1143 I# 001041 0110 AND C5777 /01041-0110 AH 001042 1105 TAD C2000 /01042-1105 IE 001043 3143 DCA MSGSWI /01043-3143 Y# 001044 4441 JMS I POP /01044-4441 $! /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-80 001045 5772 JMP I (RETRN0 /01045-5772 /: 001046 1124 GETOUT, TAD INPUT /01046-1124 IT 001047 5771 JMP I (CGETY /01047-5771 /9 001050 4441 JMS I POP /01050-4441 $! 001051 6203 CIF CDF 0 /01051-6203 2C 001052 6007 CAF /01052-6007 0G 001053 5654 JMP I .+1 /01053-5654 ., 001054 7600 7600 /01054-7600 >@ 001055 1143 CTRLG, TAD MSGSWI /01055-1143 I# 001056 0370 AND (4001 /01056-0370 C8 001057 7640 SZA CLA /01057-7640 > 001060 5323 JMP 1123 /01060-5323 +S 001061 1331 TAD CHRG /01061-1331 KY 001062 3124 DCA INPUT /01062-3124 YT 001063 1121 TAD CTGONC /01063-1121 IQ 001064 7650 SNA CLA /01064-7650 >( 001065 5271 JMP 1071 /01065-5271 *9 001066 6030 KCF /01066-6030 0X 001067 4767 JMS I (CTRLPR /01067-4767 '7 001070 5501 JMP I C200 /01070-5501 -A 001071 2121 ISZ CTGONC /01071-2121 QQ 001072 1125 TAD AC /01072-1125 IU 001073 3130 DCA AC1 /01073-3130 YX 001074 1126 TAD MQ /01074-1126 IV 001075 3131 DCA MQ1 /01075-3131 YY 001076 1127 TAD GTFS /01076-1127 IW 001077 3132 DCA GTFS1 /01077-3132 YZ 001100 4767 JMS I (CTRLPR /01100-4767 '7 001101 4437 JMS I MSG /01101-4437 $_ 001102 6107 MSREQ /01102-6107 1G 001103 4436 JMS I XOPT /01103-4436 $^ 001104 4443 JMS I NUMPRT /01104-4443 $# 001105 4442 JMS I GETC /01105-4442 $" 001106 5501 JMP I C200 /01106-5501 -A NO 001107 5301 JMP 1101 /01107-5301 +A ERROR 001110 7410 SKP /01110-7410 <H RETURN 001111 5301 JMP 1101 /01111-5301 +A YES 001112 1136 TAD NUMLEN /01112-1136 I^ 001113 1070 TAD C4 /01113-1070 H8 001114 7710 SPA CLA /01114-7710 ?H 001115 5320 JMP 1120 /01115-5320 +P 001116 1142 TAD OCTNUM /01116-1142 I" 001117 3020 DCA OPTS /01117-3020 XP 001120 3121 DCA CTGONC /01120-3121 YQ 001121 4441 JMS I POP /01121-4441 $! 001122 5766 JMP I (RETRN1 /01122-5766 /6 001123 1143 TAD MSGSWI /01123-1143 I# 001124 0110 AND C5777 /01124-0110 AH 001125 1105 TAD C2000 /01125-1105 IE 001126 3143 DCA MSGSWI /01126-3143 Y# 001127 4441 JMS I POP /01127-4441 $! 001130 5772 JMP I (RETRN0 /01130-5772 /: 001131 0307 CHRG, "G /01131-0307 CG /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-81 001132 3117 CTRLQ, DCA QFLAG /01132-3117 YO 001133 1120 TAD 0120 /01133-1120 IP 001134 7640 SZA CLA /01134-7640 > 001135 5340 JMP 1140 /01135-5340 + 001136 4441 JMS I POP /01136-4441 $! 001137 5772 JMP I 1172 /01137-5772 /: 001140 3120 DCA 0120 /01140-3120 YP 001141 6030 KCF /01141-6030 0X 001142 4441 JMS I POP /01142-4441 $! 001143 6001 ION /01143-6001 0A 001144 5765 JMP I 1165 /01144-5765 /5 001145 1040 TAD 0040 /01145-1040 H 001146 7004 RAL /01146-7004 8D 001147 3040 DCA 0040 /01147-3040 X 001150 5741 JMP I 1141 /01150-5741 /! 001151 1154 TAD TSTN /01151-1154 I, 001152 3014 DCA 0014 /01152-3014 XL 001153 1125 TAD AC /01153-1125 IU 001154 3041 DCA 0041 /01154-3041 X! 001155 6211 CDF 10 /01155-6211 2I 001156 3414 DCA I 0014 /01156-3414 \L 001157 2041 ISZ 0041 /01157-2041 P! 001160 5356 JMP 1156 /01160-5356 +. 001161 6203 CIF CDF 0 /01161-6203 2C 001162 5475 JMP I 0075 /01162-5475 ,= 001163 6211 CDF 10 /01163-6211 2I 001164 3441 DCA I 0041 /01164-3441 \! 001165 1205 TAD 1005 /01165-1205 JE /AND I 0052 /01166-0452 D* /TAD I 0074 /01167-1474 L< /JMS 0001 /01170-4001 A /AND I 1024 /01171-0624 FT /AND I 0041 /01172-0441 D! /AND I 0063 /01173-0463 D3 /AND I 0074 /01174-0474 D< /AND 0002 /01175-0002 @B /TAD 1000 /01176-1200 J@ /MQA DCM /01177-7555 =- 001166 0452 001167 1474 001170 4001 001171 0624 001172 0441 001173 0463 001174 0474 001175 0002 001176 1200 001177 7555 1200 PAGE 001200 2117 CTRLS, ISZ QFLAG /01200-2117 QO 001201 4441 JMS I POP /01201-4441 $! 001202 5777 JMP I (RETRN0 /01202-5777 /? /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-82 001203 7402 PRTCHR, HLT /01203-7402 <B 001204 3241 DCA CHRTEM /01204-3241 Z! 001205 1117 TAD QFLAG /01205-1117 IO 001206 7640 SZA CLA /01206-7640 > 001207 5237 JMP 1237 /01207-5237 *_ 001210 1241 TAD CHRTEM /01210-1241 J! 001211 0376 AND (300 /01211-0376 C> 001212 7640 SZA CLA /01212-7640 > 001213 5223 JMP 1223 /01213-5223 *S 001214 1241 TAD CHRTEM /01214-1241 J! 001215 0375 AND (40 /01215-0375 C= 001216 7650 SNA CLA /01216-7650 >( 001217 1374 TAD (100 /01217-1374 K< 001220 1101 TAD C200 /01220-1101 IA 001221 1241 TAD CHRTEM /01221-1241 J! 001222 3241 DCA CHRTEM /01222-3241 Z! 001223 2143 ISZ MSGSWI /01223-2143 Q# 001224 6001 ION /01224-6001 0A 001225 1241 TAD CHRTEM /01225-1241 J! 001226 6046 TLS /01226-6046 0& 001227 4444 JMS I LOOP /01227-4444 $$ 001230 4441 INTTSF, JMS I POP /01230-4441 $! 001231 6042 TCF /01231-6042 0" 001232 1143 TAD MSGSWI /01232-1143 I# 001233 0373 AND (7776 /01233-0373 C; 001234 3143 DCA MSGSWI /01234-3143 Y# 001235 6001 ION /01235-6001 0A 001236 5603 JMP I PRTCHR /01236-5603 .C 001237 2120 ISZ 0120 /01237-2120 QP 001240 4444 JMS I LOOP /01240-4444 $$ 001241 0000 CHRTEM, AND 0000 /01241-0000 @@ 001242 7402 MESG, HLT /01242-7402 <B 001243 7200 CLA /01243-7200 :@ 001244 1143 TAD MSGSWI /01244-1143 I# 001245 1107 TAD C4000 /01245-1107 IG 001246 3143 DCA MSGSWI /01246-3143 Y# 001247 1642 TAD I MESG /01247-1642 N" 001250 3317 DCA MSGADR /01250-3317 [O 001251 2242 ISZ MESG /01251-2242 R" 001252 6211 CDF 10 /01252-6211 2I 001253 1717 TAD I MSGADR /01253-1717 OO 001254 6201 CDF 0 /01254-6201 2A 001255 3320 DCA MSGWRD /01255-3320 [P 001256 1320 TAD MSGWRD /01256-1320 KP 001257 0111 AND C7700 /01257-0111 AI 001260 7002 BSW /01260-7002 8B 001261 4271 JMS MESDEC /01261-4271 "9 001262 4445 JMS I CHRPRT /01262-4445 $% 001263 1320 TAD MSGWRD /01263-1320 KP 001264 0077 AND C77 /01264-0077 @? 001265 4271 JMS MESDEC /01265-4271 "9 001266 4445 JMS I CHRPRT /01266-4445 $% 001267 2317 ISZ MSGADR /01267-2317 SO /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-83 001270 5252 JMP 1252 /01270-5252 ** 001271 7402 MESDEC, HLT /01271-7402 <B 001272 7450 SNA /01272-7450 <( 001273 5312 JMP MESEND /01273-5312 +J 001274 1372 TAD (-37 /01274-1372 K: 001275 7440 SZA /01275-7440 < 001276 5302 JMP .+4 /01276-5302 +B 001277 7200 CLA /01277-7200 :@ 001300 1371 TAD (215 /01300-1371 K9 001301 5671 JMP I MESDEC /01301-5671 .9 001302 1066 TAD C1 /01302-1066 H6 001303 7440 SZA /01303-7440 < 001304 5310 JMP .+4 /01304-5310 +H 001305 7200 CLA /01305-7200 :@ 001306 1370 TAD (212 /01306-1370 K8 001307 5671 JMP I MESDEC /01307-5671 .9 001310 1321 TAD MSG36 /01310-1321 KQ 001311 5671 JMP I MESDEC /01311-5671 .9 001312 1143 MESEND, TAD MSGSWI /01312-1143 I# 001313 0106 AND C3777 /01313-0106 AF 001314 3143 DCA MSGSWI /01314-3143 Y# 001315 6001 ION /01315-6001 0A 001316 5642 JMP I MESG /01316-5642 ." 001317 0000 MSGADR, AND 0000 /01317-0000 @@ 001320 0000 MSGWRD, AND 0000 /01320-0000 @@ 001321 0036 MSG36, 36 /01321-0036 @^ 001322 7402 HLT /01322-7402 <B 001323 4436 JMS I XOPT /01323-4436 $^ 001324 7710 SPA CLA /01324-7710 ?H 001325 5333 JMP 1333 /01325-5333 +[ 001326 1367 TAD 1367 /01326-1367 K7 001327 3000 DCA 0000 /01327-3000 X@ 001330 3135 DCA GTFS2 /01330-3135 Y] 001331 4440 JMS I PUSH /01331-4440 $ 001332 5766 JMP I 1366 /01332-5766 /6 001333 4436 JMS I XOPT /01333-4436 $^ 001334 7004 RAL /01334-7004 8D 001335 7700 SMA CLA /01335-7700 ?@ 001336 7410 SKP /01336-7410 <H 001337 2322 ISZ 1322 /01337-2322 SR 001340 3152 DCA 0152 /01340-3152 Y* 001341 4446 JMS I 0046 /01341-4446 $& 001342 5722 JMP I 1322 /01342-5722 /R 001343 7402 MSGSTS, HLT /01343-7402 <B 001344 4437 JMS I MSG /01344-4437 $_ 001345 6346 MSTAT /01345-6346 3& 001346 1147 TAD STATUS /01346-1147 I' 001347 4443 JMS I NUMPRT /01347-4443 $# 001350 4437 JMS I MSG /01350-4437 $_ 001351 6357 MTEST /01351-6357 3/ 001352 1122 TAD TSTNUM /01352-1122 IR /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-84 001353 4443 JMS I NUMPRT /01353-4443 $# 001354 4437 JMS I MSG /01354-4437 $_ 001355 6353 MSTEP /01355-6353 3+ 001356 1145 TAD CNTSTP /01356-1145 I% 001357 4443 JMS I NUMPRT /01357-4443 $# 001360 4437 JMS I MSG /01360-4437 $_ 001361 6113 MCRLF /01361-6113 1K 001362 5743 JMP I MSGSTS /01362-5743 /# 001363 4551 JMS I 0151 /01363-4551 %) 001364 1063 TAD ROMVER /01364-1063 H3 001365 3375 DCA 1375 /01365-3375 [= 001366 1055 TAD 0055 /01366-1055 H- 001367 1333 TAD 1333 /01367-1333 K[ /AND 1212 /01370-0212 BJ /AND 1215 /01371-0215 BM /MQA CLA SCA /01372-7741 ?! /7776 /01373-7776 ?> /AND 0100 /01374-0100 A@ /AND 0040 /01375-0040 @ /AND 1300 /01376-0300 C@ /AND I 0041 /01377-0441 D! 001370 0212 001371 0215 001372 7741 001373 7776 001374 0100 001375 0040 001376 0300 001377 0441 1400 PAGE 001400 7402 PSHRTE, HLT /01400-7402 <B 001401 4252 JMS STKCHK /01401-4252 "* 001402 5222 JMP PSHR /01402-5222 *R 001403 1000 TAD 0000 /01403-1000 H@ 001404 3410 DCA I STACK /01404-3410 \H 001405 5600 JMP I PSHRTE /01405-5600 .@ 001406 7402 POPRTE, HLT /01406-7402 <B 001407 7240 CLA CMA /01407-7240 : 001410 1010 TAD STACK /01410-1010 HH 001411 3010 DCA STACK /01411-3010 XH 001412 4252 JMS STKCHK /01412-4252 "* 001413 5232 JMP POPR /01413-5232 *Z 001414 1410 TAD I STACK /01414-1410 LH 001415 3000 DCA 0000 /01415-3000 X@ 001416 7240 CLA CMA /01416-7240 : 001417 1010 TAD STACK /01417-1010 HH 001420 3010 DCA STACK /01420-3010 XH 001421 5606 JMP I POPRTE /01421-5606 .F 001422 1200 PSHR, TAD PSHRTE /01422-1200 J@ 001423 3251 DCA PTEMP /01423-3251 Z) 001424 1076 TAD C23 /01424-1076 H> /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-85 001425 3010 DCA STACK /01425-3010 XH 001426 3143 DCA MSGSWI /01426-3143 Y# 001427 4437 JMS I MSG /01427-4437 $_ 001430 6170 PSHERR /01430-6170 18 001431 5241 JMP PSPR /01431-5241 *! 001432 1206 POPR, TAD POPRTE /01432-1206 JF 001433 3251 DCA PTEMP /01433-3251 Z) 001434 1076 TAD C23 /01434-1076 H> 001435 3010 DCA STACK /01435-3010 XH 001436 3143 DCA 0143 /01436-3143 Y# 001437 4437 JMS I MSG /01437-4437 $_ 001440 6210 POPERR /01440-6210 2H 001441 1251 PSPR, TAD PTEMP /01441-1251 J) 001442 4443 JMS I NUMPRT /01442-4443 $# 001443 1250 TAD STEMP /01443-1250 J( 001444 4443 JMS I NUMPRT /01444-4443 $# 001445 1160 TAD INTTEM /01445-1160 I0 001446 4443 JMS I NUMPRT /01446-4443 $# 001447 5501 JMP I C200 /01447-5501 -A 001450 0000 STEMP, AND 0000 /01450-0000 @@ 001451 0000 PTEMP, AND 0000 /01451-0000 @@ 001452 7402 STKCHK, HLT /01452-7402 <B 001453 7200 CLA /01453-7200 :@ 001454 1010 TAD STACK /01454-1010 HH 001455 1112 TAD CM23 /01455-1112 IJ 001456 7510 SPA /01456-7510 =H 001457 5265 JMP STKCHR /01457-5265 *5 001460 1114 TAD CM12 /01460-1114 IL 001461 7700 SMA CLA /01461-7700 ?@ 001462 5265 JMP STKCHR /01462-5265 *5 001463 2252 ISZ STKCHK /01463-2252 R* 001464 5652 JMP I STKCHK /01464-5652 .* 001465 1252 STKCHR, TAD STKCHK /01465-1252 J* 001466 4464 JMS I XX8 /01466-4464 $4 001467 1010 TAD STACK /01467-1010 HH 001470 3250 DCA STEMP /01470-3250 Z( 001471 1000 TAD 0000 /01471-1000 H@ 001472 3160 DCA INTTEM /01472-3160 Y0 001473 5652 JMP I STKCHK /01473-5652 .* 001474 7402 CTRLPR, HLT /01474-7402 <B 001475 4437 JMS I MSG /01475-4437 $_ 001476 6113 MCRLF /01476-6113 1K 001477 1304 TAD .+5 /01477-1304 KD 001500 4445 JMS I CHRPRT /01500-4445 $% 001501 1124 TAD INPUT /01501-1124 IT 001502 4445 JMS I CHRPRT /01502-4445 $% 001503 5674 JMP I CTRLPR /01503-5674 .< 001504 0336 "^ /01504-0336 C^ 001505 7402 OPTRED, HLT /01505-7402 <B 001506 7200 CLA /01506-7200 :@ 001507 6214 RDF /01507-6214 2L /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-86 001510 1161 TAD CIFCDF /01510-1161 I1 001511 3321 DCA 1521 /01511-3321 [Q 001512 6201 CDF 0 /01512-6201 2A 001513 1021 TAD 0021 /01513-1021 HQ 001514 7700 SMA CLA /01514-7700 ?@ 001515 5320 JMP 1520 /01515-5320 +P 001516 7604 CLA OSR /01516-7604 >D 001517 3020 DCA OPTS /01517-3020 XP 001520 1020 TAD OPTS /01520-1020 HP 001521 7402 HLT /01521-7402 <B 001522 5705 JMP I OPTRED /01522-5705 /E 001523 7402 APTPRE, HLT /01523-7402 <B 001524 7300 CLA CLL /01524-7300 ;@ 001525 6214 RDF /01525-6214 2L 001526 1161 TAD CIFCDF /01526-1161 I1 001527 3364 DCA APTPEX /01527-3364 [4 001530 6201 CDF 0 /01530-6201 2A 001531 1377 TAD (APT-1 /01531-1377 K? 001532 3011 DCA 0011 /01532-3011 XI 001533 3411 DCA I 0011 /01533-3411 \I FPCF: FIELD BITS 001534 1376 TAD (FPCA3 /01534-1376 K> 001535 3411 DCA I 0011 /01535-3411 \I FPCADR 001536 1375 TAD (INDEX /01536-1375 K= 001537 3411 DCA I 0011 /01537-3411 \I INDEX 001540 1374 TAD (BASEP /01540-1374 K< 001541 3411 DCA I 0011 /01541-3411 \I BASE 001542 3411 DCA I 0011 /01542-3411 \I OPER 001543 7201 CLA IAC /01543-7201 :A 001544 3411 DCA I 0011 /01544-3411 \I EXP 001545 7326 CLA CLL CML RTL /01545-7326 ;V 001546 3411 DCA I 0011 /01546-3411 \I 2 001547 7325 CLA CLL CML IAC RAL /01547-7325 ;U 001550 3411 DCA I 0011 /01550-3411 \I 3 001551 7307 CLA CLL IAC RTL /01551-7307 ;G 001552 3411 DCA I 0011 /01552-3411 \I 4 001553 1071 TAD C5 /01553-1071 H9 001554 3411 DCA I 0011 /01554-3411 \I 5 001555 7327 CLA CLL CML IAC RTL /01555-7327 ;W 001556 3411 DCA I 0011 /01556-3411 \I 6 001557 1373 TAD (-10 /01557-1373 K; 001560 3137 DCA CNT /01560-3137 Y_ 001561 3411 DCA I 0011 /01561-3411 \I CLEAR INDEXES 001562 2137 ISZ CNT /01562-2137 Q_ 001563 5361 JMP .-2 /01563-5361 +1 001564 7402 APTPEX, HLT /01564-7402 <B 001565 5723 JMP I APTPRE /01565-5723 /S 001566 5754 JMP I 1554 /01566-5754 /, 001567 4500 JMS I 0100 /01567-4500 %@ 001570 2301 ISZ 1501 /01570-2301 SA 001571 2605 ISZ I 1405 /01571-2605 VE 001572 4005 JMS 0005 /01572-4005 E /SPA SNA SZL CLA /01573-7770 ?8 /CLA CML IAC BSW /01574-7223 :S /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-87 /CLA IAC RTR /01575-7213 :K /DCA I 1546 /01576-3746 _& /7177 /01577-7177 9? 001573 7770 001574 7223 001575 7213 001576 3746 001577 7177 1600 PAGE 001600 3147 INTFPI, DCA STATUS /01600-3147 Y' 001601 1127 TAD GTFS /01601-1127 IW 001602 3233 DCA 1633 /01602-3233 Z[ 001603 1156 TAD CODE /01603-1156 I. 001604 7640 SZA CLA /01604-7640 > 001605 5227 JMP 1627 /01605-5227 *W 001606 1200 TAD 1600 /01606-1200 J@ 001607 4464 JMS I XX8 /01607-4464 $4 001610 4436 JMS I XOPT /01610-4436 $^ 001611 0104 AND C1000 /01611-0104 AD 001612 7640 SZA CLA /01612-7640 > 001613 5227 JMP 1627 /01613-5227 *W 001614 4437 JMS I MSG /01614-4437 $_ 001615 6614 MUNEXI /01615-6614 6L 001616 1000 TAD 0000 /01616-1000 H@ 001617 4443 JMS I NUMPRT /01617-4443 $# 001620 4437 JMS I MSG /01620-4437 $_ 001621 6560 MBADM0 /01621-6560 50 001622 4437 JMS I MSG /01622-4437 $_ 001623 6113 MCRLF /01623-6113 1K 001624 4450 JMS I STSMSG /01624-4450 $( 001625 4447 JMS I 0047 /01625-4447 $' 001626 7000 NOP /01626-7000 8@ 001627 4441 JMS I POP /01627-4441 $! 001630 1233 TAD 1633 /01630-1233 J[ 001631 6005 RTF /01631-6005 0E 001632 5556 JMP I CODE /01632-5556 -. 001633 0000 AND 0000 /01633-0000 @@ 001634 7402 PRSKFG, HLT /01634-7402 <B 001635 7200 CLA /01635-7200 :@ 001636 6214 RDF /01636-6214 2L 001637 1161 TAD CIFCDF /01637-1161 I1 001640 3267 DCA 1667 /01640-3267 Z7 001641 6201 CDF 0 /01641-6201 2A 001642 1234 TAD PRSKFG /01642-1234 J\505/5 001643 4464 JMS I XX8 /01643-4464 $4 001644 6556 FPRST /01644-6556 5. 001645 3147 DCA STATUS /01645-3147 Y' 001646 4436 JMS I XOPT /01646-4436 $^ 001647 0104 AND C1000 /01647-0104 AD 001650 7640 SZA CLA /01650-7640 > 001651 5264 JMP 1664 /01651-5264 *4 001652 4437 JMS I MSG /01652-4437 $_ 001653 6247 MSKPFG /01653-6247 2' /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-88 001654 7240 CLA CMA /01654-7240 : 001655 1234 TAD PRSKFG /01655-1234 J\ 001656 4443 JMS I NUMPRT /01656-4443 $# 001657 4437 JMS I MSG /01657-4437 $_ 001660 6560 MBADM0 /01660-6560 50 001661 4437 JMS I MSG /01661-4437 $_ 001662 6113 MCRLF /01662-6113 1K 001663 4450 JMS I STSMSG /01663-4450 $( 001664 2152 ISZ 0152 /01664-2152 Q* 001665 4447 JMS I 0047 /01665-4447 $' 001666 2234 ISZ PRSKFG /01666-2234 R\ 001667 7402 HLT /01667-7402 <B 001670 5634 JMP I PRSKFG /01670-5634 .\ 001671 7402 STATCK, HLT /01671-7402 <B 001672 7200 CLA /01672-7200 :@ 001673 6214 RDF /01673-6214 2L 001674 1161 TAD CIFCDF /01674-1161 I1 001675 3342 DCA ERRFLD /01675-3342 [" 001676 1671 TAD I STATCK /01676-1671 N9 001677 6201 CDF 0 /01677-6201 2A 001700 3344 DCA ERRTEM /01700-3344 [$ 001701 1344 TAD ERRTEM /01701-1344 K$ 001702 7041 CMA IAC /01702-7041 8! 001703 1147 TAD STATUS /01703-1147 I' 001704 7640 SZA CLA /01704-7640 > 001705 5310 JMP 1710 /01705-5310 +H 001706 2271 ISZ STATCK /01706-2271 R9 001707 5341 JMP 1741 /01707-5341 +! 001710 1271 TAD STATCK /01710-1271 J9 001711 4464 JMS I XX8 /01711-4464 $4 001712 4436 JMS I XOPT /01712-4436 $^ 001713 0104 AND C1000 /01713-0104 AD 001714 7650 SNA CLA /01714-7650 >( 001715 5320 JMP 1720 /01715-5320 +P 001716 2271 ISZ STATCK /01716-2271 R9 001717 5337 JMP 1737 /01717-5337 +_ 001720 4437 JMS I MSG /01720-4437 $_ 001721 6230 MSTAER /01721-6230 2X 001722 7240 CLA CMA /01722-7240 : 001723 1271 TAD STATCK /01723-1271 J9 001724 4443 JMS I NUMPRT /01724-4443 $# 001725 4437 JMS I MSG /01725-4437 $_ 001726 6332 MACTUA /01726-6332 3Z 001727 1147 TAD STATUS /01727-1147 I' 001730 4443 JMS I NUMPRT /01730-4443 $# 001731 4437 JMS I MSG /01731-4437 $_ 001732 6340 MEXPEC /01732-6340 3 001733 1344 TAD 1744 /01733-1344 K$ 001734 4443 JMS I NUMPRT /01734-4443 $# 001735 4450 JMS I STSMSG /01735-4450 $( 001736 2271 ISZ STATCK /01736-2271 R9 001737 2152 ISZ 0152 /01737-2152 Q* 001740 4447 JMS I 0047 /01740-4447 $' 001741 2271 ISZ STATCK /01741-2271 R9 /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-89 001742 7402 ERRFLD, HLT /01742-7402 <B 001743 5671 JMP I STATCK /01743-5671 .9 001744 0000 ERRTEM, AND 0000 /01744-0000 @@ 001745 7402 VERMSG, HLT /01745-7402 <B 001746 1144 TAD ONCONL /01746-1144 I$ 001747 7640 SZA CLA /01747-7640 > 001750 5745 JMP I VERMSG /01750-5745 /% 001751 1151 TAD MDB /01751-1151 I) 001752 4463 JMS I ROMVER /01752-4463 $3 001753 1374 TAD VER /01753-1374 K< 001754 3374 DCA VER /01754-3374 [< 001755 4437 JMS I MSG /01755-4437 $_ 001756 6407 MMCREV /01756-6407 4G 001757 1374 TAD VER /01757-1374 K< 001760 7002 BSW /01760-7002 8B 001761 0077 AND C77 /01761-0077 @? 001762 1102 TAD C260 /01762-1102 IB 001763 4445 JMS I CHRPRT /01763-4445 $% 001764 1374 TAD VER /01764-1374 K< 001765 0077 AND C77 /01765-0077 @? 001766 1102 TAD C260 /01766-1102 IB 001767 4445 JMS I CHRPRT /01767-4445 $% 001770 4437 JMS I MSG /01770-4437 $_ 001771 6113 MCRLF /01771-6113 1K 001772 2144 ISZ ONCONL /01772-2144 Q$ 001773 5745 JMP I VERMSG /01773-5745 /% 001774 0000 VER, 0000 /01774-0000 @@ 001775 7110 CLL RAR /01775-7110 9H 001776 5765 JMP I 1765 /01776-5765 /5 001777 0037 AND MSG /01777-0037 @_ 2000 PAGE 002000 7402 VERMS0, HLT /02000-7402 <B 002001 1144 TAD ONCONL /02001-1144 I$ 002002 7640 SZA CLA /02002-7640 > 002003 5600 JMP I VERMS0 /02003-5600 .@ 002004 1151 TAD MDB /02004-1151 I) 002005 4463 JMS I ROMVER /02005-4463 $3 002006 7002 BSW /02006-7002 8B 002007 3777 DCA I (VER /02007-3777 _? 002010 5600 JMP I VERMS0 /02010-5600 .@ 002011 7402 REGSRD, HLT /02011-7402 <B 002012 6563 FMRB /02012-6563 53 002013 3151 DCA MDB /02013-3151 Y) 002014 6564 FMRP /02014-6564 54 002015 3150 DCA MPC /02015-3150 Y( 002016 6556 FPRST /02016-6556 5. 002017 3147 DCA STATUS /02017-3147 Y' 002020 3300 DCA RRFMDB /02020-3300 [@ 002021 3277 DCA RRFMPC /02021-3277 Z? 002022 1145 TAD CNTSTP /02022-1145 I% /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-90 002023 7104 CLL RAL /02023-7104 9D 002024 1157 TAD MCODE /02024-1157 I/ 002025 3301 DCA RRIND /02025-3301 [A 002026 6211 CDF 10 /02026-6211 2I 002027 1701 TAD I RRIND /02027-1701 OA 002030 3275 DCA RRMPC /02030-3275 Z= 002031 2301 ISZ RRIND /02031-2301 SA 002032 1701 TAD I RRIND /02032-1701 OA 002033 3276 DCA RRMDB /02033-3276 Z> 002034 6201 CDF 0 /02034-6201 2A 002035 1611 TAD I REGSRD /02035-1611 NI 002036 7650 SNA CLA /02036-7650 >( 002037 5253 JMP 2053 /02037-5253 *+ 002040 1275 TAD RRMPC /02040-1275 J= 002041 7041 CMA IAC /02041-7041 8! 002042 1150 TAD MPC /02042-1150 I( 002043 7640 SZA CLA /02043-7640 > 002044 2277 ISZ RRFMPC /02044-2277 R? 002045 1276 TAD RRMDB /02045-1276 J> 002046 7041 CMA IAC /02046-7041 8! 002047 1151 TAD MDB /02047-1151 I) 002050 7640 SZA CLA /02050-7640 > 002051 2300 ISZ RRFMDB /02051-2300 S@ 002052 5256 JMP 2056 /02052-5256 *. 002053 2277 ISZ RRFMPC /02053-2277 R? 002054 2300 ISZ RRFMDB /02054-2300 S@ 002055 5256 JMP 2056 /02055-5256 *. 002056 1277 TAD RRFMPC /02056-1277 J? 002057 7650 SNA CLA /02057-7650 >( 002060 5263 JMP 2063 /02060-5263 *3 002061 4302 JMS ERRMPC /02061-4302 #B 002062 5273 JMP 2073 /02062-5273 *; 002063 1300 TAD RRFMDB /02063-1300 K@ 002064 7650 SNA CLA /02064-7650 >( 002065 5270 JMP 2070 /02065-5270 *8 002066 4335 JMS ERRMDB /02066-4335 #] 002067 5273 JMP 2073 /02067-5273 *; 002070 2211 ISZ REGSRD /02070-2211 RI 002071 2211 ISZ REGSRD /02071-2211 RI 002072 5611 JMP I REGSRD /02072-5611 .I 002073 2211 ISZ REGSRD /02073-2211 RI 002074 5611 JMP I REGSRD /02074-5611 .I 002075 0000 RRMPC, AND 0000 /02075-0000 @@ 002076 0000 RRMDB, AND 0000 /02076-0000 @@ 002077 0000 RRFMPC, AND 0000 /02077-0000 @@ 002100 0000 RRFMDB, AND 0000 /02100-0000 @@ 002101 0000 RRIND, AND 0000 /02101-0000 @@ 002102 7402 ERRMPC, HLT /02102-7402 <B 002103 1211 TAD REGSRD /02103-1211 JI 002104 4464 JMS I XX8 /02104-4464 $4 002105 4436 JMS I XOPT /02105-4436 $^ 002106 0104 AND C1000 /02106-0104 AD 002107 7640 SZA CLA /02107-7640 > 002110 5331 JMP 2131 /02110-5331 +Y /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-91 002111 4437 JMS I MSG /02111-4437 $_ 002112 6266 MPCERR /02112-6266 26 002113 7240 CLA CMA /02113-7240 : 002114 1211 TAD REGSRD /02114-1211 JI 002115 4443 JMS I NUMPRT /02115-4443 $# 002116 4437 JMS I MSG /02116-4437 $_ 002117 6560 MBADM0 /02117-6560 50 002120 4437 JMS I MSG /02120-4437 $_ 002121 6332 MACTUA /02121-6332 3Z 002122 1150 TAD MPC /02122-1150 I( 002123 4443 JMS I NUMPRT /02123-4443 $# 002124 4437 JMS I MSG /02124-4437 $_ 002125 6340 MEXPEC /02125-6340 3 002126 1275 TAD RRMPC /02126-1275 J= 002127 4443 JMS I NUMPRT /02127-4443 $# 002130 4450 JMS I STSMSG /02130-4450 $( 002131 2152 ISZ 0152 /02131-2152 Q* 002132 4447 JMS I 0047 /02132-4447 $' 002133 2302 ISZ ERRMPC /02133-2302 SB 002134 5702 JMP I ERRMPC /02134-5702 /B 002135 7402 ERRMDB, HLT /02135-7402 <B 002136 1211 TAD 2011 /02136-1211 JI 002137 4464 JMS I XX8 /02137-4464 $4 002140 4436 JMS I XOPT /02140-4436 $^ 002141 0104 AND C1000 /02141-0104 AD 002142 7640 SZA CLA /02142-7640 > 002143 5364 JMP 2164 /02143-5364 +4 002144 4437 JMS I MSG /02144-4437 $_ 002145 6305 MDBERR /02145-6305 3E 002146 7240 CLA CMA /02146-7240 : 002147 1211 TAD 2011 /02147-1211 JI 002150 4443 JMS I NUMPRT /02150-4443 $# 002151 4437 JMS I MSG /02151-4437 $_ 002152 6576 MBADM1 /02152-6576 5> 002153 4437 JMS I MSG /02153-4437 $_ 002154 6332 MACTUA /02154-6332 3Z 002155 1151 TAD MDB /02155-1151 I) 002156 4443 JMS I NUMPRT /02156-4443 $# 002157 4437 JMS I MSG /02157-4437 $_ 002160 6340 MEXPEC /02160-6340 3 002161 1276 TAD RRMDB /02161-1276 J> 002162 4443 JMS I NUMPRT /02162-4443 $# 002163 4450 JMS I STSMSG /02163-4450 $( 002164 2152 ISZ 0152 /02164-2152 Q* 002165 4447 JMS I 0047 /02165-4447 $' 002166 2335 ISZ ERRMDB /02166-2335 S] 002167 5735 JMP I ERRMDB /02167-5735 /] 002170 1375 TAD 2175 /02170-1375 K= 002171 3060 DCA 0060 /02171-3060 X0 002172 5774 JMP I 2174 /02172-5774 /< 002173 2752 ISZ I 2152 /02173-2752 W* 002174 2200 ISZ 2000 /02174-2200 R@ 002175 3600 DCA I 2000 /02175-3600 ^@ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-92 002176 2052 ISZ 0052 /02176-2052 P* /TAD I 2174 /02177-1774 O< 002177 1774 2200 PAGE 002200 7402 BADAC, HLT /02200-7402 <B 002201 3140 DCA 0140 /02201-3140 Y 002202 1200 TAD BADAC /02202-1200 J@ 002203 4464 JMS I XX8 /02203-4464 $4 002204 4436 JMS I XOPT /02204-4436 $^ 002205 0104 AND C1000 /02205-0104 AD 002206 7640 SZA CLA /02206-7640 > 002207 5226 JMP 2226 /02207-5226 *V 002210 4437 JMS I MSG /02210-4437 $_ 002211 6113 MCRLF /02211-6113 1K 002212 1140 TAD 0140 /02212-1140 I 002213 4443 JMS I NUMPRT /02213-4443 $# 002214 4437 JMS I MSG /02214-4437 $_ 002215 6370 MINCOR /02215-6370 38 002216 7240 CLA CMA /02216-7240 : 002217 1200 TAD BADAC /02217-1200 J@ 002220 4443 JMS I NUMPRT /02220-4443 $# 002221 4437 JMS I MSG /02221-4437 $_ 002222 6576 MBADM1 /02222-6576 5> 002223 4437 JMS I MSG /02223-4437 $_ 002224 6113 MCRLF /02224-6113 1K 002225 4450 JMS I STSMSG /02225-4450 $( 002226 4447 JMS I 0047 /02226-4447 $' 002227 2200 ISZ BADAC /02227-2200 R@ 002230 5600 JMP I BADAC /02230-5600 .@ 002231 7402 ERRBRK, HLT /02231-7402 <B 002232 7421 MQL /02232-7421 <Q 002233 6214 RDF /02233-6214 2L 002234 6201 CDF 0 /02234-6201 2A 002235 1161 TAD CIFCDF /02235-1161 I1 002236 3307 DCA 2307 /02236-3307 [G 002237 7344 CLA CLL CMA RAL /02237-7344 ;$ 002240 1307 TAD 2307 /02240-1307 KG 002241 3265 DCA 2265 /02241-3265 Z5 002242 1265 TAD 2265 /02242-1265 J5 002243 3273 DCA 2273 /02243-3273 Z; 002244 7521 MQA MQL /02244-7521 =Q 002245 3311 DCA 2311 /02245-3311 [I 002246 1231 TAD ERRBRK /02246-1231 JY 002247 4464 JMS I XX8 /02247-4464 $4 002250 4436 JMS I XOPT /02250-4436 $^ 002251 0104 AND C1000 /02251-0104 AD 002252 7640 SZA CLA /02252-7640 > 002253 5304 JMP 2304 /02253-5304 +D 002254 4437 JMS I MSG /02254-4437 $_ 002255 6533 MDATBR /02255-6533 5[ 002256 7240 CLA CMA /02256-7240 : 002257 1231 TAD ERRBRK /02257-1231 JY 002260 4443 JMS I NUMPRT /02260-4443 $# /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-93 002261 4437 JMS I MSG /02261-4437 $_ 002262 6113 MCRLF /02262-6113 1K 002263 4437 JMS I MSG /02263-4437 $_ 002264 6332 MACTUA /02264-6332 3Z 002265 7402 HLT /02265-7402 <B 002266 1711 TAD I 2311 /02266-1711 OI 002267 6201 CDF 0 /02267-6201 2A 002270 4443 JMS I NUMPRT /02270-4443 $# 002271 4437 JMS I MSG /02271-4437 $_ 002272 6340 MEXPEC /02272-6340 3 002273 7402 HLT /02273-7402 <B 002274 1631 TAD I ERRBRK /02274-1631 NY 002275 6201 CDF 0 /02275-6201 2A 002276 4443 JMS I NUMPRT /02276-4443 $# 002277 4437 JMS I MSG /02277-4437 $_ 002300 6363 MADDRS /02300-6363 33 002301 1311 TAD 2311 /02301-1311 KI 002302 4443 JMS I NUMPRT /02302-4443 $# 002303 4450 JMS I STSMSG /02303-4450 $( 002304 4447 JMS I 0047 /02304-4447 $' 002305 2231 ISZ ERRBRK /02305-2231 RY 002306 2231 ISZ ERRBRK /02306-2231 RY 002307 7402 HLT /02307-7402 <B 002310 5631 JMP I ERRBRK /02310-5631 .Y 002311 0000 AND 0000 /02311-0000 @@ 002312 7402 ORTAB, HLT /02312-7402 <B 002313 4436 JMS I XOPT /02313-4436 $^ 002314 0100 AND C177 /02314-0100 A@ 002315 7041 CMA IAC /02315-7041 8! 002316 1145 TAD CNTSTP /02316-1145 I% 002317 1066 TAD C1 /02317-1066 H6 002320 7440 SZA /02320-7440 < 002321 5337 JMP 2337 /02321-5337 +_ 002322 6002 IOF /02322-6002 0B 002323 6554 FPHLT /02323-6554 5, 002324 6565 FMDO /02324-6565 55 002325 7000 NOP /02325-7000 8@ 002326 6565 FMDO /02326-6565 55 002327 6565 FMDO /02327-6565 55 002330 6565 FMDO /02330-6565 55 002331 6565 FMDO /02331-6565 55 002332 6565 FMDO /02332-6565 55 002333 6552 FPICL /02333-6552 5* 002334 7000 NOP /02334-7000 8@ 002335 6001 ION /02335-6001 0A 002336 5712 JMP I ORTAB /02336-5712 /J 002337 7710 SPA CLA /02337-7710 ?H 002340 5342 JMP 2342 /02340-5342 +" 002341 5343 JMP 2343 /02341-5343 +# 002342 2312 ISZ ORTAB /02342-2312 SJ 002343 5712 JMP I ORTAB /02343-5712 /J 002344 7402 RUNNO, HLT /02344-7402 <B 002345 7200 CLA /02345-7200 :@ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-94 002346 1344 TAD RUNNO /02346-1344 K$ 002347 4464 JMS I XX8 /02347-4464 $4 002350 6556 FPRST /02350-6556 5. 002351 3147 DCA STATUS /02351-3147 Y' 002352 4437 JMS I MSG /02352-4437 $_ 002353 6516 MNORUN /02353-6516 5N 002354 7240 CLA CMA /02354-7240 : 002355 1344 TAD RUNNO /02355-1344 K$ 002356 4443 JMS I NUMPRT /02356-4443 $# 002357 4437 JMS I MSG /02357-4437 $_ 002360 6113 MCRLF /02360-6113 1K 002361 4450 JMS I STSMSG /02361-4450 $( 002362 5501 JMP I C200 /02362-5501 -A 002363 1053 TAD 0053 /02363-1053 H+ 002364 7001 IAC /02364-7001 8A 002365 0041 AND 0041 /02365-0041 @! 002366 3053 DCA 0053 /02366-3053 X+ 002367 2060 ISZ 0060 /02367-2060 P0 002370 2034 ISZ 0034 /02370-2034 P\ 002371 7610 SKP CLA /02371-7610 >H 002372 5775 JMP I 2375 /02372-5775 /= 002373 5774 JMP I 2374 /02373-5774 /< 002374 2400 ISZ I 0000 /02374-2400 T@ 002375 2403 ISZ I 0003 /02375-2403 TC 002376 2256 ISZ 2256 /02376-2256 R. 002377 4200 JMS 2200 /02377-4200 "@ 2400 PAGE 002400 7402 VERROM, HLT /02400-7402 <B 002401 7440 SZA /02401-7440 < 002402 7410 SKP /02402-7410 <H 002403 5266 JMP 2466 /02403-5266 *6 002404 1115 TAD C7777 /02404-1115 IM 002405 7440 SZA /02405-7440 < 002406 7410 SKP /02406-7410 <H 002407 5265 JMP 2465 /02407-5265 *5 002410 1115 TAD C7777 /02410-1115 IM 002411 7440 SZA /02411-7440 < 002412 7410 SKP /02412-7410 <H 002413 5264 JMP 2464 /02413-5264 *4 002414 1115 TAD C7777 /02414-1115 IM 002415 7440 SZA /02415-7440 < 002416 7410 SKP /02416-7410 <H 002417 5263 JMP 2463 /02417-5263 *3 002420 1070 TAD C4 /02420-1070 H8 002421 7440 SZA /02421-7440 < 002422 7410 SKP /02422-7410 <H 002423 5262 JMP 2462 /02423-5262 *2 002424 1066 TAD C1 /02424-1066 H6 002425 7440 SZA /02425-7440 < 002426 7410 SKP /02426-7410 <H 002427 5261 JMP 2461 /02427-5261 *1 002430 1067 TAD C3 /02430-1067 H7 002431 7440 SZA /02431-7440 < 002432 7410 SKP /02432-7410 <H /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-95 002433 5260 JMP 2460 /02433-5260 *0 002434 1066 TAD C1 /02434-1066 H6 002435 7440 SZA /02435-7440 < 002436 7410 SKP /02436-7410 <H 002437 5257 JMP 2457 /02437-5257 */ 002440 1267 TAD C21 /02440-1267 J7 002441 7440 SZA /02441-7440 < 002442 7410 SKP /02442-7410 <H 002443 5256 JMP 2456 /02443-5256 *. 002444 1270 TAD C44 /02444-1270 J8 002445 7440 SZA /02445-7440 < 002446 7410 SKP /02446-7410 <H 002447 5255 JMP 2455 /02447-5255 *- 002450 1377 TAD (.+1 /02450-1377 K? 002451 4464 JMS I XX8 /02451-4464 $4 002452 4437 JMS I MSG /02452-4437 $_ 002453 6424 MIRVRM /02453-6424 4T 002454 5600 JMP I VERROM /02454-5600 .@ 002455 7001 IAC /02455-7001 8A -73 002456 7001 IAC /02456-7001 8A -27 002457 7001 IAC /02457-7001 8A -6 002460 7001 IAC /02460-7001 8A -5 002461 7001 IAC /02461-7001 8A -2 002462 7001 IAC /02462-7001 8A -1 002463 7001 IAC /02463-7001 8A 3 002464 7001 IAC /02464-7001 8A 2 002465 7001 IAC /02465-7001 8A 1 002466 5600 JMP I VERROM /02466-5600 .@ 0 002467 0021 C21, 0021 /02467-0021 @Q 002470 0044 C44, 0044 /02470-0044 @$ 002471 7402 APTCHK, HLT /02471-7402 <B 002472 7300 CLA CLL /02472-7300 ;@ 002473 6214 RDF /02473-6214 2L 002474 1161 TAD CIFCDF /02474-1161 I1 002475 6201 CDF 0 /02475-6201 2A 002476 3373 DCA APTRET /02476-3373 [; 002477 7344 CLA CLL CMA RAL /02477-7344 ;$ 002500 1373 TAD APTRET /02500-1373 K; 002501 3312 DCA APTCDF /02501-3312 [J 002502 1312 TAD APTCDF /02502-1312 KJ 002503 3776 DCA I (APTNXT /02503-3776 _> 002504 1271 TAD APTCHK /02504-1271 J9 002505 3141 DCA 0141 /02505-3141 Y! 002506 1113 TAD CM13 /02506-1113 IK 002507 3137 DCA CNT /02507-3137 Y_ 002510 1375 TAD (APT-1 /02510-1375 K= 002511 3012 DCA 0012 /02511-3012 XJ 002512 7402 APTCDF, HLT /02512-7402 <B 002513 1671 TAD I APTCHK /02513-1671 N9 002514 6201 CDF 0 /02514-6201 2A 002515 7041 CMA IAC /02515-7041 8! 002516 1412 TAD I 0012 /02516-1412 LJ 002517 7640 SZA CLA /02517-7640 > 002520 5325 JMP 2525 /02520-5325 +U /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-96 002521 2271 ISZ APTCHK /02521-2271 R9 002522 2137 ISZ CNT /02522-2137 Q_ 002523 5312 JMP APTCDF /02523-5312 +J 002524 5371 JMP 2571 /02524-5371 +9 002525 1141 TAD 0141 /02525-1141 I! 002526 4464 JMS I XX8 /02526-4464 $4 002527 4436 JMS I XOPT /02527-4436 $^ 002530 0104 AND C1000 /02530-0104 AD 002531 7640 SZA CLA /02531-7640 > 002532 5364 JMP 2564 /02532-5364 +4 002533 6556 FPRST /02533-6556 5. 002534 3147 DCA STATUS /02534-3147 Y' 002535 4437 JMS I MSG /02535-4437 $_ 002536 6442 MAPTER /02536-6442 4" 002537 7240 CLA CMA /02537-7240 : 002540 1141 TAD 0141 /02540-1141 I! 002541 3012 DCA 0012 /02541-3012 XJ 002542 1012 TAD 0012 /02542-1012 HJ 002543 4443 JMS I NUMPRT /02543-4443 $# 002544 4437 JMS I MSG /02544-4437 $_ 002545 6113 MCRLF /02545-6113 1K 002546 4450 JMS I STSMSG /02546-4450 $( 002547 4437 JMS I MSG /02547-4437 $_ 002550 6457 MAPTHL /02550-6457 4/ 002551 1113 TAD CM13 /02551-1113 IK 002552 3137 DCA CNT /02552-3137 Y_ 002553 5776 JMP I (APTNXT /02553-5776 /> 002554 1412 APTNX2, TAD I 0012 /02554-1412 LJ 002555 4443 JMS I NUMPRT /02555-4443 $# 002556 2137 ISZ CNT /02556-2137 Q_ 002557 5354 JMP 2554 /02557-5354 +, 002560 4437 JMS I MSG /02560-4437 $_ 002561 6324 MACFPP /02561-6324 3T 002562 4437 JMS I MSG /02562-4437 $_ 002563 6113 MCRLF /02563-6113 1K 002564 1141 TAD 0141 /02564-1141 I! 002565 1074 TAD C12 /02565-1074 H< 002566 3271 DCA APTCHK /02566-3271 Z9 002567 4447 JMS I 0047 /02567-4447 $' 002570 2271 ISZ APTCHK /02570-2271 R9 002571 2271 ISZ APTCHK /02571-2271 R9 002572 4446 JMS I 0046 /02572-4446 $& 002573 7402 APTRET, HLT /02573-7402 <B 002574 5671 JMP I APTCHK /02574-5671 .9 /7177 /02575-7177 9? /ISZ I 2400 /02576-2600 V@ /ISZ I 0051 /02577-2451 T) 002575 7177 002576 2600 002577 2451 2600 PAGE 002600 7402 APTNXT, HLT /02600-7402 <B 002601 1412 TAD I 0012 /02601-1412 LJ 002602 6201 CDF 0 /02602-6201 2A /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-97 002603 4443 JMS I NUMPRT /02603-4443 $# 002604 2137 ISZ CNT /02604-2137 Q_ 002605 5200 JMP APTNXT /02605-5200 *@ 002606 4437 JMS I MSG /02606-4437 $_ 002607 6340 MEXPEC /02607-6340 3 002610 4437 JMS I MSG /02610-4437 $_ 002611 6113 MCRLF /02611-6113 1K 002612 1113 TAD CM13 /02612-1113 IK 002613 3137 DCA CNT /02613-3137 Y_ 002614 1377 TAD (APT-1 /02614-1377 K? 002615 3012 DCA 0012 /02615-3012 XJ 002616 5776 JMP I (APTNX2 /02616-5776 /> 002617 7402 IDXCHK, HLT /02617-7402 <B 002620 6214 RDF /02620-6214 2L 002621 1161 TAD CIFCDF /02621-1161 I1 002622 3335 DCA 2735 /02622-3335 [] 002623 7344 CLA CLL CMA RAL /02623-7344 ;$ 002624 1335 TAD 2735 /02624-1335 K] 002625 3236 DCA 2636 /02625-3236 Z^ 002626 1236 TAD 2636 /02626-1236 J^ 002627 3277 DCA 2677 /02627-3277 Z? 002630 1217 TAD IDXCHK /02630-1217 JO 002631 3141 DCA 0141 /02631-3141 Y! 002632 1375 TAD 2775 /02632-1375 K= 002633 3137 DCA CNT /02633-3137 Y_ 002634 1374 TAD 2774 /02634-1374 K< 002635 3012 DCA 0012 /02635-3012 XJ 002636 7402 HLT /02636-7402 <B 002637 1617 TAD I IDXCHK /02637-1617 NO 002640 7041 CMA IAC /02640-7041 8! 002641 6201 CDF 0 /02641-6201 2A 002642 1412 TAD I 0012 /02642-1412 LJ 002643 7640 SZA CLA /02643-7640 > 002644 5251 JMP 2651 /02644-5251 *) 002645 2217 ISZ IDXCHK /02645-2217 RO 002646 2137 ISZ CNT /02646-2137 Q_ 002647 5236 JMP 2636 /02647-5236 *^ 002650 5333 JMP 2733 /02650-5333 +[ 002651 1141 TAD 0141 /02651-1141 I! 002652 4464 JMS I XX8 /02652-4464 $4 002653 4436 JMS I XOPT /02653-4436 $^ 002654 0104 AND C1000 /02654-0104 AD 002655 7640 SZA CLA /02655-7640 > 002656 5325 JMP 2725 /02656-5325 +U 002657 6556 FPRST /02657-6556 5. 002660 3147 DCA STATUS /02660-3147 Y' 002661 4437 JMS I MSG /02661-4437 $_ 002662 6640 MXRERR /02662-6640 6 002663 7240 CLA CMA /02663-7240 : 002664 1141 TAD 0141 /02664-1141 I! 002665 3012 DCA 0012 /02665-3012 XJ 002666 1012 TAD 0012 /02666-1012 HJ 002667 4443 JMS I NUMPRT /02667-4443 $# 002670 4437 JMS I MSG /02670-4437 $_ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-98 002671 6113 MCRLF /02671-6113 1K 002672 4450 JMS I STSMSG /02672-4450 $( 002673 4437 JMS I MSG /02673-4437 $_ 002674 6660 MINDXP /02674-6660 60 002675 1375 TAD 2775 /02675-1375 K= 002676 3137 DCA CNT /02676-3137 Y_ 002677 7402 HLT /02677-7402 <B 002700 1412 TAD I 0012 /02700-1412 LJ 002701 6201 CDF 0 /02701-6201 2A 002702 4443 JMS I NUMPRT /02702-4443 $# 002703 2137 ISZ CNT /02703-2137 Q_ 002704 5277 JMP 2677 /02704-5277 *? 002705 4437 JMS I MSG /02705-4437 $_ 002706 6340 MEXPEC /02706-6340 3 002707 4437 JMS I MSG /02707-4437 $_ 002710 6113 MCRLF /02710-6113 1K 002711 1375 TAD 2775 /02711-1375 K= 002712 3137 DCA CNT /02712-3137 Y_ 002713 1374 TAD 2774 /02713-1374 K< 002714 3012 DCA 0012 /02714-3012 XJ 002715 1412 TAD I 0012 /02715-1412 LJ 002716 4443 JMS I NUMPRT /02716-4443 $# 002717 2137 ISZ CNT /02717-2137 Q_ 002720 5315 JMP 2715 /02720-5315 +M 002721 4437 JMS I MSG /02721-4437 $_ 002722 6324 MACFPP /02722-6324 3T 002723 4437 JMS I MSG /02723-4437 $_ 002724 6113 MCRLF /02724-6113 1K 002725 7200 CLA /02725-7200 :@ 002726 1141 TAD 0141 /02726-1141 I! 002727 1072 TAD C7 /02727-1072 H: 002730 3217 DCA IDXCHK /02730-3217 ZO 002731 4447 JMS I 0047 /02731-4447 $' 002732 2217 ISZ IDXCHK /02732-2217 RO 002733 2217 ISZ IDXCHK /02733-2217 RO 002734 4446 JMS I 0046 /02734-4446 $& 002735 7402 HLT /02735-7402 <B 002736 5617 JMP I IDXCHK /02736-5617 .O 002737 1357 INTSPL, TAD 2757 /02737-1357 K/ 002740 3000 DCA 0000 /02740-3000 X@ 002741 7346 CLA CLL CMA RTL /02741-7346 ;& 002742 3140 DCA 0140 /02742-3140 Y 002743 2141 ISZ 0141 /02743-2141 Q! 002744 5343 JMP 2743 /02744-5343 +# 002745 2140 ISZ 0140 /02745-2140 Q 002746 5343 JMP 2743 /02746-5343 +# 002747 6007 CAF /02747-6007 0G 002750 6001 ION /02750-6001 0A 002751 5354 JMP 2754 /02751-5354 +, 002752 1373 TAD 2773 /02752-1373 K; 002753 4464 JMS I XX8 /02753-4464 $4 002754 4437 JMS I MSG /02754-4437 $_ 002755 6707 MPWRLO /02755-6707 7G 002756 5772 JMP I 2772 /02756-5772 /: /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-99 002757 5403 JMP I 0003 /02757-5403 ,C 002760 1055 TAD 0055 /02760-1055 H- 002761 3061 DCA 0061 /02761-3061 X1 002762 1060 TAD 0060 /02762-1060 H0 002763 4470 JMS I 0070 /02763-4470 $8 002764 7200 CLA /02764-7200 :@ 002765 4476 JMS I 0076 /02765-4476 $> 002766 3062 DCA 0062 /02766-3062 X2 002767 4514 JMS I 0114 /02767-4514 %L 002770 4511 JMS I 0111 /02770-4511 %I 002771 5772 JMP I 2772 /02771-5772 /: 002772 0266 AND 2666 /02772-0266 B6 002773 2737 ISZ I 2737 /02773-2737 W_ 002774 7212 CLA RTR /02774-7212 :J 002775 7770 SPA SNA SZL CLA /02775-7770 ?8 /ISZ I 0154 /02776-2554 U, /7177 /02777-7177 9? 002776 2554 002777 7177 3000 PAGE 003000 1022 TAD X8MOD /03000-1022 HR 003001 7700 SMA CLA /03001-7700 ?@ 003002 5212 JMP 3012 /03002-5212 *J 003003 6002 IOF /03003-6002 0B 003004 6201 CDF 0 /03004-6201 2A 003005 6272 CIF 70 /03005-6272 2: 003006 4777 JMS I (6500 /03006-4777 '? 003007 6203 CIF CDF 0 /03007-6203 2C 003010 6001 ION /03010-6001 0A 003011 5776 JMP I (TST1 /03011-5776 /> 003012 1253 TAD 3053 /03012-1253 J+ 003013 7640 SZA CLA /03013-7640 > 003014 5220 JMP 3020 /03014-5220 *P 003015 1252 TAD 3052 /03015-1252 J* 003016 7040 CMA /03016-7040 8 003017 3253 DCA 3053 /03017-3253 Z+ 003020 2253 ISZ 3053 /03020-2253 R+ 003021 5776 JMP I (TST1 /03021-5776 /> 003022 2254 ISZ 3054 /03022-2254 R, 003023 4436 JMS I XOPT /03023-4436 $^ 003024 0104 AND C1000 /03024-0104 AD 003025 7640 SZA CLA /03025-7640 > 003026 5241 JMP 3041 /03026-5241 *! 003027 4437 JMS I MSG /03027-4437 $_ 003030 6730 MDJPAS /03030-6730 7X 003031 1254 TAD 3054 /03031-1254 J, 003032 4443 JMS I NUMPRT /03032-4443 $# 003033 2251 ISZ 3051 /03033-2251 R) 003034 5241 JMP 3041 /03034-5241 *! 003035 1375 TAD (-4 /03035-1375 K= 003036 3251 DCA 3051 /03036-3251 Z) 003037 4437 JMS I MSG /03037-4437 $_ 003040 6113 MCRLF /03040-6113 1K 003041 4436 JMS I XOPT /03041-4436 $^ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-100 003042 0374 AND (400 /03042-0374 C< 003043 7650 SNA CLA /03043-7650 >( 003044 5776 JMP I (TST1 /03044-5776 /> 003045 1373 TAD (.-1 /03045-1373 K; 003046 3000 DCA 0000 /03046-3000 X@ 003047 4440 JMS I PUSH /03047-4440 $ 003050 5772 JMP I (CTRLG /03050-5772 /: 003051 7774 CM4, SPA SNA SZL CLA OSR /03051-7774 ?< 003052 0350 AND 3150 /03052-0350 C( 003053 7770 SPA SNA SZL CLA /03053-7770 ?8 003054 0000 AND 0000 /03054-0000 @@ 003055 7402 ENVSET, HLT /03055-7402 <B 003056 6214 RDF /03056-6214 2L 003057 1161 TAD CIFCDF /03057-1161 I1 003060 3333 DCA 3133 /03060-3333 [[ 003061 7344 CLA CLL CMA RAL /03061-7344 ;$ 003062 1333 TAD 3133 /03062-1333 K[ 003063 3272 DCA 3072 /03063-3272 Z: 003064 1272 TAD 3072 /03064-1272 J: 003065 3307 DCA 3107 /03065-3307 [G 003066 1307 TAD 3107 /03066-1307 KG 003067 3314 DCA 3114 /03067-3314 [L 003070 6201 CDF 0 /03070-6201 2A 003071 4451 JMS I PREAPT /03071-4451 $) 003072 7402 HLT /03072-7402 <B 003073 1655 TAD I ENVSET /03073-1655 N- TSTNUM 003074 3122 DCA TSTNUM /03074-3122 YR 003075 2255 ISZ ENVSET /03075-2255 R- 003076 1655 TAD I ENVSET /03076-1655 N- CODE 003077 3156 DCA CODE /03077-3156 Y. 003100 2255 ISZ ENVSET /03100-2255 R- 003101 1655 TAD I ENVSET /03101-1655 N- MCODE FLD 1 003102 3157 DCA MCODE /03102-3157 Y/ 003103 2255 ISZ ENVSET /03103-2255 R- 003104 1655 TAD I ENVSET /03104-1655 N- FPCF 003105 6201 CDF 0 /03105-6201 2A 003106 3771 DCA I (APT /03106-3771 _9 003107 7402 HLT /03107-7402 <B 003110 2255 ISZ ENVSET /03110-2255 R- 003111 1655 TAD I ENVSET /03111-1655 N- FPCADR 003112 6201 CDF 0 /03112-6201 2A 003113 3770 DCA I (FPCADR /03113-3770 _8 003114 7402 HLT /03114-7402 <B 003115 2255 ISZ ENVSET /03115-2255 R- 003116 1655 TAD I ENVSET /03116-1655 N- FPCOM 003117 6553 FPCOM /03117-6553 5+ 003120 7200 CLA /03120-7200 :@ 003121 2255 ISZ ENVSET /03121-2255 R- 003122 1655 TAD I ENVSET /03122-1655 N- FPEP 003123 7440 SZA /03123-7440 < 003124 6567 FPEP /03124-6567 57 003125 6201 CDF 0 /03125-6201 2A 003126 3145 DCA CNTSTP /03126-3145 Y% 003127 2255 ISZ ENVSET /03127-2255 R- /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-101 003130 1146 TAD APTP /03130-1146 I& 003131 6555 FPST /03131-6555 5- 003132 5337 JMP 3137 /03132-5337 +_ 003133 7402 HLT /03133-7402 <B 003134 2255 ISZ ENVSET /03134-2255 R- 003135 7200 CLA /03135-7200 :@ 003136 5655 JMP I ENVSET /03136-5655 .- 003137 1255 TAD ENVSET /03137-1255 J- 003140 4464 JMS I XX8 /03140-4464 $4 003141 4452 JMS I SKFGPR /03141-4452 $* 003142 7410 SKP /03142-7410 <H 003143 2255 ISZ ENVSET /03143-2255 R- 003144 5333 JMP 3133 /03144-5333 +[ 003145 1371 TAD 3171 /03145-1371 K9 003146 3061 DCA 0061 /03146-3061 X1 003147 7344 CLA CLL CMA RAL /03147-7344 ;$ 003150 3035 DCA 0035 /03150-3035 X] 003151 3060 DCA 0060 /03151-3060 X0 003152 1367 TAD 3167 /03152-1367 K7 003153 4470 JMS I 0070 /03153-4470 $8 003154 7200 CLA /03154-7200 :@ 003155 1042 TAD GETC /03155-1042 H" 003156 4501 JMS I C200 /03156-4501 %A 003157 7200 CLA /03157-7200 :@ 003160 4466 JMS I 0066 /03160-4466 $6 003161 5364 JMP 3164 /03161-5364 +4 003162 4507 JMS I 0107 /03162-4507 %G 003163 4507 JMS I 0107 /03163-4507 %G 003164 5766 JMP I 3166 /03164-5766 /6 003165 3232 DCA 3032 /03165-3232 ZZ 003166 3200 DCA 3000 /03166-3200 Z@ 003167 3777 DCA I 3177 /03167-3777 _? /CLA IAC /03170-7201 :A /CLA /03171-7200 :@ /TAD 0055 /03172-1055 H- /DCA 0044 /03173-3044 X$ /AND I 0000 /03174-0400 D@ /SPA SNA SZL CLA OSR /03175-7774 ?< /DCA 3000 /03176-3200 Z@ /6500 /03177-6500 5@ 003170 7201 003171 7200 003172 1055 003173 3044 003174 0400 003175 7774 003176 3200 003177 6500 3200 PAGE 003200 7201 TST1, CLA IAC /03200-7201 :A 003201 3122 DCA TSTNUM /03201-3122 YR 003202 3156 DCA CODE /03202-3156 Y. 003203 6552 FPICL /03203-6552 5* /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-102 003204 6551 FPINT /03204-6551 5) 003205 5210 JMP 3210 /03205-5210 *H 003206 4452 JMS I SKFGPR /03206-4452 $* 003207 5200 JMP 3200 /03207-5200 *@ 003210 6557 FPIST /03210-6557 5/ 003211 5214 JMP 3214 /03211-5214 *L 003212 4452 JMS I SKFGPR /03212-4452 $* 003213 5200 JMP 3200 /03213-5200 *@ 003214 7240 CLA CMA /03214-7240 : 003215 6553 FPCOM /03215-6553 5+ 003216 4243 JMS 3243 /03216-4243 "# 003217 6567 FPEP /03217-6567 57 003220 4243 JMS 3243 /03220-4243 "# 003221 6561 FMODE /03221-6561 51 003222 4243 JMS 3243 /03222-4243 "# 003223 6563 FMRB /03223-6563 53 003224 4243 JMS 3243 /03224-4243 "# 003225 6564 FMRP /03225-6564 54 003226 4243 JMS 3243 /03226-4243 "# 003227 6565 FMDO /03227-6565 55 003230 4243 JMS 3243 /03230-4243 "# 003231 6562 6562 /03231-6562 52 003232 4243 JMS 3243 /03232-4243 "# 003233 6554 FPHLT /03233-6554 5, 003234 4243 JMS 3243 /03234-4243 "# 003235 6556 FPRST /03235-6556 5. 003236 3147 DCA STATUS /03236-3147 Y' 003237 4453 JMS I CKSTAT /03237-4453 $+ 003240 1014 HLTEX LOCKO EPMOD /03240-1014 HL 003241 5200 JMP 3200 /03241-5200 *@ 003242 5265 JMP 3265 /03242-5265 *5 003243 7402 HLT /03243-7402 <B 003244 7200 CLA /03244-7200 :@ 003245 7440 SZA /03245-7440 < 003246 5251 JMP 3251 /03246-5251 *) 003247 7240 CLA CMA /03247-7240 : 003250 5643 JMP I 3243 /03250-5643 .# 003251 6007 CAF /03251-6007 0G 003252 6001 ION /03252-6001 0A 003253 7344 CLA CLL CMA RAL /03253-7344 ;$ 003254 1243 TAD 3243 /03254-1243 J# 003255 3243 DCA 3243 /03255-3243 Z# 003256 1243 TAD 3243 /03256-1243 J# 003257 4455 JMS I ACBAD /03257-4455 $- 003260 5643 JMP I 3243 /03260-5643 .# 003261 7205 CLA IAC RAL /03261-7205 :E 003262 1243 TAD 3243 /03262-1243 J# 003263 3243 DCA 3243 /03263-3243 Z# 003264 5643 JMP I 3243 /03264-5643 .# 003265 7200 CLA /03265-7200 :@ 003266 6553 FPCOM /03266-6553 5+ 003267 6556 FPRST /03267-6556 5. 003270 3147 DCA STATUS /03270-3147 Y' /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-103 003271 4453 JMS I CKSTAT /03271-4453 $+ 003272 1000 HLTEX /03272-1000 H@ FPHLT 003273 5265 JMP 3265 /03273-5265 *5 003274 1164 TAD C6410 /03274-1164 I4 DPSEL EXPEX FPENA LOCON 003275 6553 FPCOM /03275-6553 5+ 003276 7041 CMA IAC /03276-7041 8! 003277 1164 TAD C6410 /03277-1164 I4 003300 7450 SNA /03300-7450 <( 003301 5304 JMP 3304 /03301-5304 +D 003302 4455 JMS I ACBAD /03302-4455 $- 003303 5274 JMP 3274 /03303-5274 *< 003304 6556 FPRST /03304-6556 5. 003305 3147 DCA STATUS /03305-3147 Y' 003306 4453 JMS I CKSTAT /03306-4453 $+ 003307 5010 DPMOD HLTEX LOCKO /03307-5010 (H 003310 5274 JMP 3274 /03310-5274 *< 003311 7330 CLA CLL CML RAR /03311-7330 ;X 003312 6567 FPEP /03312-6567 57 003313 7450 SNA /03313-7450 <( 003314 5317 JMP 3317 /03314-5317 +O 003315 4455 JMS I ACBAD /03315-4455 $- 003316 5311 JMP 3311 /03316-5311 +I 003317 6556 FPRST /03317-6556 5. 003320 3147 DCA STATUS /03320-3147 Y' 003321 4453 JMS I CKSTAT /03321-4453 $+ 003322 1014 HLTEX LOCKO EPMOD /03322-1014 HL 003323 5311 JMP 3311 /03323-5311 +I 003324 1107 TAD C4000 /03324-1107 IG 003325 6553 FPCOM /03325-6553 5+ 003326 6556 FPRST /03326-6556 5. 003327 3147 DCA STATUS /03327-3147 Y' 003330 4453 JMS I CKSTAT /03330-4453 $+ 003331 5000 DPMOD HLTEX /03331-5000 (@ 003332 5324 JMP 3324 /03332-5324 +T 003333 6552 FPICL /03333-6552 5* 003334 6556 FPRST /03334-6556 5. 003335 3147 DCA STATUS /03335-3147 Y' 003336 4453 JMS I CKSTAT /03336-4453 $+ 003337 0000 0000 /03337-0000 @@ 003340 5324 JMP 3324 /03340-5324 +T 003341 1164 TAD C6410 /03341-1164 I4 DPSEL EXPEX FPENA LOCON 003342 6553 FPCOM /03342-6553 5+ 003343 7330 CLA CLL CML RAR /03343-7330 ;X 003344 6567 FPEP /03344-6567 57 003345 6556 FPRST /03345-6556 5. 003346 3147 DCA STATUS /03346-3147 Y' 003347 4453 JMS I CKSTAT /03347-4453 $+ 003350 0014 LOCKO EPMOD /03350-0014 @L 003351 5341 JMP 3341 /03351-5341 +! 003352 6552 FPICL /03352-6552 5* 003353 6556 FPRST /03353-6556 5. 003354 3147 DCA STATUS /03354-3147 Y' 003355 4453 JMS I CKSTAT /03355-4453 $+ 003356 0010 LOCKO /03356-0010 @H 003357 5341 JMP 3341 /03357-5341 +! /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-104 003360 1164 TAD C6410 /03360-1164 I4 DPSEL EXPEX FPENA LOCON 003361 6553 FPCOM /03361-6553 5+ 003362 7200 CLA /03362-7200 :@ 003363 6567 FPEP /03363-6567 57 003364 6556 FPRST /03364-6556 5. 003365 3147 DCA STATUS /03365-3147 Y' 003366 4453 JMS I CKSTAT /03366-4453 $+ 003367 0010 LOCKO /03367-0010 @H 003370 5360 JMP 3360 /03370-5360 +0 003371 5777 JMP I (TST1B /03371-5777 /? 003372 7660 SZA SNL CLA /03372-7660 >0 003373 0040 AND 0040 /03373-0040 @ 003374 4060 JMS NORUN /03374-4060 0 003375 0101 AND 0101 /03375-0101 AA 003376 7746 SMA SZA CLA OSR HLT /03376-7746 ?& /DCA I 0000 /03377-3400 \@ 003377 3400 3400 PAGE 003400 7240 TST1B, CLA CMA /03400-7240 : 003401 7000 NOP /03401-7000 8@ 003402 6564 FMRP /03402-6564 54 003403 7450 SNA /03403-7450 <( 003404 5207 JMP 3407 /03404-5207 *G 003405 4455 JMS I ACBAD /03405-4455 $- 003406 5200 JMP 3400 /03406-5200 *@ 003407 7200 CLA /03407-7200 :@ 003410 1115 TAD C7777 /03410-1115 IM 003411 6561 FMODE /03411-6561 51 003412 6563 FMRB /03412-6563 53 003413 3232 DCA 3432 /03413-3232 ZZ 003414 7201 CLA IAC /03414-7201 :A 003415 1232 TAD 3432 /03415-1232 JZ 003416 7650 SNA CLA /03416-7650 >( 003417 5223 JMP 3423 /03417-5223 *S 003420 1232 TAD 3432 /03420-1232 JZ 003421 4455 JMS I ACBAD /03421-4455 $- 003422 5207 JMP 3407 /03422-5207 *G 003423 7200 CLA /03423-7200 :@ 003424 7000 NOP /03424-7000 8@ 003425 6561 FMODE /03425-6561 51 003426 6563 FMRB /03426-6563 53 003427 7450 SNA /03427-7450 <( 003430 5233 JMP 3433 /03430-5233 *[ 003431 4455 JMS I ACBAD /03431-4455 $- 003432 0000 AND 0000 /03432-0000 @@ 003433 7200 CLA /03433-7200 :@ 003434 1123 TAD NALL /03434-1123 IS 003435 7640 SZA CLA /03435-7640 > 003436 5777 JMP I (TST1 /03436-5777 /? 003437 5240 JMP 3440 /03437-5240 * 003440 7305 TST2, CLA CLL IAC RAL /03440-7305 ;E 003441 3122 DCA TSTNUM /03441-3122 YR /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-105 003442 3156 DCA CODE /03442-3156 Y. 003443 1515 TAD I C7777 /03443-1515 MM 003444 3776 DCA I (BATTMP /03444-3776 _> 003445 1375 TAD (MCOD2 /03445-1375 K= 003446 3157 DCA MCODE /03446-3157 Y/ 003447 6552 TST2LP, FPICL /03447-6552 5* 003450 3145 DCA CNTSTP /03450-3145 Y% 003451 1075 TAD C15 /03451-1075 H= 003452 3270 DCA STAT2 /03452-3270 Z8 003453 1162 TAD C2370 /03453-1162 I2 EXPEX FPCON LOCON 003454 6553 FPCOM /03454-6553 5+ 003455 7330 CLA CLL CML RAR /03455-7330 ;X 003456 6567 FPEP /03456-6567 57 003457 6561 FMODE /03457-6561 51 003460 6550 FFST /03460-6550 5( 003461 6551 FPINT /03461-6551 5) 003462 5265 JMP .+3 /03462-5265 *5 003463 4452 JMS I SKFGPR /03463-4452 $* 003464 5247 JMP TST2LP /03464-5247 *' 003465 6556 TST2L2, FPRST /03465-6556 5. 003466 3147 DCA STATUS /03466-3147 Y' 003467 4453 JMS I CKSTAT /03467-4453 $+ 003470 0015 STAT2, LOCKO EPMOD FPRUN /03470-0015 @M 003471 5247 JMP TST2LP /03471-5247 *' 003472 4454 JMS I RDREGS /03472-4454 $, 003473 4000 4000 /03473-4000 @ 003474 5247 JMP TST2LP /03474-5247 *' 003475 1352 TAD T2M21 /03475-1352 K* -21 003476 1145 TAD CNTSTP /03476-1145 I% 003477 7450 SNA /03477-7450 <( 003500 4774 JMS I (VERMS0 /03500-4774 '< 003501 1115 TAD C7777 /03501-1115 IM -22 003502 7440 SZA /03502-7440 < 003503 7410 SKP /03503-7410 <H 003504 4773 JMS I (VERMSG /03504-4773 '; 003505 1351 TAD T2M106 /03505-1351 K) -130 003506 7440 SZA /03506-7440 < 003507 5313 JMP .+4 /03507-5313 +K 003510 1372 TAD (14 /03510-1372 K: 003511 3270 DCA STAT2 /03511-3270 Z8 003512 5317 JMP .+5 /03512-5317 +O 003513 1115 TAD C7777 /03513-1115 IM -131 003514 7640 SZA CLA /03514-7640 > 003515 5317 JMP .+2 /03515-5317 +O 003516 5332 JMP 3532 /03516-5332 +Z 003517 4436 JMS I XOPT /03517-4436 $^ 003520 0101 AND C200 /03520-0101 AA 003521 7650 SNA CLA /03521-7650 >( 003522 5325 JMP .+3 /03522-5325 +U 003523 4457 JMS I ABORT /03523-4457 $/ 003524 5250 JMP TST2LP+1 /03524-5250 *( 003525 2145 ISZ CNTSTP /03525-2145 Q% 003526 7410 SKP /03526-7410 <H 003527 4460 JMS I NORUN /03527-4460 $0 003530 6565 FMDO /03530-6565 55 /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-106 003531 5265 JMP TST2L2 /03531-5265 *5 003532 6551 FPINT /03532-6551 5) 003533 7410 SKP /03533-7410 <H 003534 5337 JMP .+3 /03534-5337 +_ 003535 4452 JMS I SKFGPR /03535-4452 $* 003536 5247 JMP TST2LP /03536-5247 *' 003537 6555 FPST /03537-6555 5- 003540 5343 JMP 3543 /03540-5343 +# 003541 4452 JMS I SKFGPR /03541-4452 $* 003542 5247 JMP 3447 /03542-5247 *' 003543 1107 TAD C4000 /03543-1107 IG 003544 6553 FPCOM /03544-6553 5+ 003545 5771 JMP I (TST2NX /03545-5771 /9 003546 4452 JMS I SKFGPR /03546-4452 $* 003547 5247 JMP TST2LP /03547-5247 *' 003550 5771 JMP I (TST2NX /03550-5771 /9 003551 7672 T2M106, 7672 /03551-7672 >: 7670 003552 7757 T2M21, 7757 /03552-7757 ?/ 7761 003553 1054 TAD 0054 /03553-1054 H, 003554 1375 TAD 3575 /03554-1375 K= 003555 3054 DCA 0054 /03555-3054 X, 003556 2055 ISZ 0055 /03556-2055 P- 003557 1054 TAD 0054 /03557-1054 H, 003560 7700 SMA CLA /03560-7700 ?@ 003561 5766 JMP I 3566 /03561-5766 /6 003562 4506 JMS I 0106 /03562-4506 %F 003563 5772 JMP I 3572 /03563-5772 /: 003564 3035 DCA 0035 /03564-3035 X] 003565 0333 AND 3533 /03565-0333 C[ 003566 3316 DCA 3516 /03566-3316 [N 003567 0040 AND 0040 /03567-0040 @ 003570 4060 JMS NORUN /03570-4060 0 /DCA I 3400 /03571-3600 ^@ /AND 0014 /03572-0014 @L /TAD I 3545 /03573-1745 O% /ISZ 0000 /03574-2000 P@ /TAD I 3503 /03575-1703 OC /DCA I 3462 /03576-3662 ^2 /DCA 3400 /03577-3200 Z@ 003571 3600 003572 0014 003573 1745 003574 2000 003575 1703 003576 3662 003577 3200 3600 PAGE 003600 1107 TST2NX, TAD C4000 /03600-1107 IG 003601 7450 SNA /03601-7450 <( 003602 5205 JMP .+3 /03602-5205 *E 003603 4455 JMS I ACBAD /03603-4455 $- 003604 5777 JMP I (TST2LP /03604-5777 /? 003605 6556 FPRST /03605-6556 5. 003606 3147 DCA STATUS /03606-3147 Y' /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-107 003607 4453 JMS I CKSTAT /03607-4453 $+ 003610 0014 LOCKO EPMOD /03610-0014 @L 003611 5777 JMP I (TST2LP /03611-5777 /? 003612 6557 FPIST /03612-6557 5/ 003613 7410 SKP /03613-7410 <H 003614 5217 JMP .+3 /03614-5217 *O 003615 4452 JMS I SKFGPR /03615-4452 $* 003616 5777 JMP I (TST2LP /03616-5777 /? 003617 3147 DCA STATUS /03617-3147 Y' 003620 6551 FPINT /03620-6551 5) 003621 5224 JMP .+3 /03621-5224 *T 003622 4452 JMS I SKFGPR /03622-4452 $* 003623 5777 JMP I (TST2LP /03623-5777 /? 003624 7200 CLA /03624-7200 :@ 003625 4453 JMS I CKSTAT /03625-4453 $+ 003626 0014 LOCKO EPMOD /03626-0014 @L 003627 5777 JMP I (TST2LP /03627-5777 /? 003630 6556 FPRST /03630-6556 5. 003631 3147 DCA STATUS /03631-3147 Y' 003632 4453 JMS I CKSTAT /03632-4453 $+ 003633 0014 LOCKO EPMOD /03633-0010 @H WAS 14 IN ORIG 003634 5777 JMP I (TST2LP /03634-5777 /? 003635 1015 TAD 0015 /03635-1015 HM 003636 7040 CMA /03636-7040 8 003637 7650 SNA CLA /03637-7650 >( 003640 5245 JMP 3645 /03640-5245 *% 003641 1376 TAD (15 /03641-1376 K> 003642 4456 JMS I BRKERR /03642-4456 $. 003643 7777 MQA MQL CLA SAM /03643-7777 ?? 003644 5777 JMP I 3777 /03644-5777 /? 003645 1515 TAD I C7777 /03645-1515 MM 003646 7650 SNA CLA /03646-7650 >( 003647 5254 JMP 3654 /03647-5254 *, 003650 1115 TAD C7777 /03650-1115 IM 003651 4456 JMS I BRKERR /03651-4456 $. 003652 0000 AND 0000 /03652-0000 @@ 003653 5777 JMP I (TST2LP /03653-5777 /? 003654 1262 TAD BATTMP /03654-1262 J2 003655 3515 DCA I C7777 /03655-3515 ]M 003656 1123 TAD NALL /03656-1123 IS 003657 7640 SZA CLA /03657-7640 > 003660 5777 JMP I (TST2LP /03660-5777 /? 003661 5263 JMP TST3 /03661-5263 *3 003662 0000 BATTMP, AND 0000 /03662-0000 @@ 003663 6552 TST3, FPICL /03663-6552 5* 003664 6561 FMODE /03664-6561 51 003665 4465 JMS I SETENV /03665-4465 $5 003666 0003 3 /03666-0003 @C TSTNUM 003667 3721 REC3 /03667-3721 _Q CODE 003670 2167 MCOD3 /03670-2167 Q7 MCODE 003671 0000 0000 /03671-0000 @@ FPCF 003672 3746 FPCA3 /03672-3746 _& FPCADR 003673 2770 2770 /03673-2770 W8 FPCOM 003674 4000 4000 /03674-4000 @ FPEP /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-108 003675 5263 JMP TST3 /03675-5263 *3 ERR 003676 6556 FPRST /03676-6556 5. 003677 3147 DCA STATUS /03677-3147 Y' 003700 4453 JMS I CKSTAT /03700-4453 $+ 003701 0015 LOCKO EPMOD FPRUN /03701-0015 @M 003702 5263 JMP 3663 /03702-5263 *3 003703 4454 JMS I RDREGS /03703-4454 $, 003704 4000 JMS 0000 /03704-4000 @ 003705 5263 JMP 3663 /03705-5263 *3 003706 4436 JMS I XOPT /03706-4436 $^ 003707 0101 AND C200 /03707-0101 AA 003710 7650 SNA CLA /03710-7650 >( 003711 5314 JMP 3714 /03711-5314 +L 003712 4457 JMS I ABORT /03712-4457 $/ 003713 5264 JMP 3664 /03713-5264 *4 003714 2145 ISZ CNTSTP /03714-2145 Q% 003715 7410 SKP /03715-7410 <H 003716 4460 JMS I NORUN /03716-4460 $0 003717 6565 FMDO /03717-6565 55 003720 5276 JMP 3676 /03720-5276 *> 003721 7200 REC3, CLA /03721-7200 :@ 003722 4453 JMS I CKSTAT /03722-4453 $+ 003723 0014 LOCKO EPMOD /03723-0014 @L 003724 5263 JMP 3663 /03724-5263 *3 003725 4461 JMS I CHKAPT /03725-4461 $1 003726 0000 AND 0000 /03726-0000 @@ 003727 3747 DCA I 3747 /03727-3747 _' 003730 7213 CLA IAC RTR /03730-7213 :K 003731 7223 CLA CML IAC BSW /03731-7223 :S 003732 0000 AND 0000 /03732-0000 @@ 003733 0001 AND 0001 /03733-0001 @A 003734 0002 AND 0002 /03734-0002 @B 003735 0003 AND 0003 /03735-0003 @C 003736 0004 AND 0004 /03736-0004 @D 003737 0005 AND 0005 /03737-0005 @E 003740 0006 AND 0006 /03740-0006 @F 003741 5263 JMP 3663 /03741-5263 *3 003742 1123 TAD NALL /03742-1123 IS 003743 7640 SZA CLA /03743-7640 > 003744 5263 JMP 3663 /03744-5263 *3 003745 5775 JMP I 3775 /03745-5775 /= 003746 0000 FPCA3, AND 0000 /03746-0000 @@ 003747 5362 JMP 3762 /03747-5362 +2 003750 5364 JMP 3764 /03750-5364 +4 003751 5366 JMP 3766 /03751-5366 +6 003752 5370 JMP 3770 /03752-5370 +8 003753 3714 DCA I 3714 /03753-3714 _L 003754 3721 DCA I 3721 /03754-3721 _Q 003755 3671 DCA I 3671 /03755-3671 ^9 003756 4000 JMS 0000 /03756-4000 @ 003757 5014 JMP 0014 /03757-5014 (L 003760 0063 AND 0063 /03760-0063 @3 /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-109 003761 5010 JMP 0010 /03761-5010 (H 003762 0062 AND 0062 /03762-0062 @2 003763 4741 JMS I 3741 /03763-4741 '! 003764 5041 JMP 0041 /03764-5041 (! 003765 4635 JMS I 3635 /03765-4635 &] 003766 4670 JMS I 3670 /03766-4670 &8 003767 4600 JMS I 3600 /03767-4600 &@ 003770 4400 JMS I 0000 /03770-4400 $@ 003771 4777 JMS I 3777 /03771-4777 '? 003772 5004 JMP 0004 /03772-5004 (D 003773 5037 JMP 0037 /03773-5037 (_ 003774 0061 AND 0061 /03774-0061 @1 003775 4000 JMS 0000 /03775-4000 @ /AND 0015 /03776-0015 @M /DCA I 0047 /03777-3447 \' 003776 0015 003777 3447 4000 PAGE 004000 6552 TST4, FPICL /04000-6552 5* 004001 7307 CLA CLL IAC RTL /04001-7307 ;G 004002 3122 DCA TSTNUM /04002-3122 YR 004003 1377 TAD (REC4 /04003-1377 K? 004004 3156 DCA CODE /04004-3156 Y. 004005 3145 DCA CNTSTP /04005-3145 Y% 004006 1376 TAD (MCOD4 /04006-1376 K> 004007 3157 DCA MCODE /04007-3157 Y/ 004010 4451 JMS I PREAPT /04010-4451 $) 004011 1375 TAD (FPCA4 /04011-1375 K= 004012 3774 DCA I (FPCADR /04012-3774 _< 004013 7201 CLA IAC /04013-7201 :A 004014 3773 DCA I (APT /04014-3773 _; 004015 1164 TAD C6410 /04015-1164 I4 DPSEL EXPEX FPENA LOCON 004016 6553 FPCOM /04016-6553 5+ 004017 7330 CLA CLL CML RAR /04017-7330 ;X 004020 6567 FPEP /04020-6567 57 004021 6561 FMODE /04021-6561 51 004022 1146 TAD APTP /04022-1146 I& 004023 6555 FPST /04023-6555 5- 004024 7610 SKP CLA /04024-7610 >H 004025 5230 JMP 4030 /04025-5230 *X 004026 4452 JMS I SKFGPR /04026-4452 $* 004027 5200 JMP 4000 /04027-5200 *@ 004030 6556 FPRST /04030-6556 5. 004031 3147 DCA STATUS /04031-3147 Y' 004032 4453 JMS I CKSTAT /04032-4453 $+ 004033 0015 LOCKO EPMOD FPRUN /04033-0015 @M 004034 5200 JMP 4000 /04034-5200 *@ 004035 4454 JMS I RDREGS /04035-4454 $, 004036 4000 JMS 0000 /04036-4000 @ 004037 5200 JMP 4000 /04037-5200 *@ 004040 4436 JMS I XOPT /04040-4436 $^ 004041 0101 AND C200 /04041-0101 AA 004042 7650 SNA CLA /04042-7650 >( 004043 5246 JMP 4046 /04043-5246 *& /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-110 004044 4457 JMS I ABORT /04044-4457 $/ 004045 5201 JMP 4001 /04045-5201 *A 004046 2145 ISZ CNTSTP /04046-2145 Q% 004047 7410 SKP /04047-7410 <H 004050 4460 JMS I NORUN /04050-4460 $0 004051 6565 FMDO /04051-6565 55 004052 1145 TAD CNTSTP /04052-1145 I% 004053 1113 TAD CM13 /04053-1113 IK 004054 7640 SZA CLA /04054-7640 > 004055 5230 JMP 4030 /04055-5230 *X 004056 6556 FPRST /04056-6556 5. 004057 3147 DCA STATUS /04057-3147 Y' 004060 4453 JMS I CKSTAT /04060-4453 $+ 004061 0017 LOCKO EPMOD FPPAU FPRUN /04061-0017 @O 004062 5200 JMP 4000 /04062-5200 *@ 004063 4454 JMS I RDREGS /04063-4454 $, 004064 4000 JMS 0000 /04064-4000 @ 004065 5200 JMP 4000 /04065-5200 *@ 004066 6555 FPST /04066-6555 5- 004067 5273 JMP 4073 /04067-5273 *; 004070 2145 ISZ CNTSTP /04070-2145 Q% 004071 5230 JMP 4030 /04071-5230 *X 004072 4460 JMS I NORUN /04072-4460 $0 004073 7200 CLA /04073-7200 :@ 004074 4452 JMS I SKFGPR /04074-4452 $* 004075 5200 JMP 4000 /04075-5200 *@ 004076 5230 JMP 4030 /04076-5230 *X 004077 7200 REC4, CLA /04077-7200 :@ 004100 4453 JMS I CKSTAT /04100-4453 $+ 004101 0014 LOCKO EPMOD /04101-0014 @L 004102 5200 JMP 4000 /04102-5200 *@ 004103 4461 JMS I CHKAPT /04103-4461 $1 004104 1001 TAD 0001 /04104-1001 HA 004105 1603 TAD I 4003 /04105-1603 NC 004106 7213 CLA IAC RTR /04106-7213 :K 004107 7223 CLA CML IAC BSW /04107-7223 :S 004110 1600 TAD I 4000 /04110-1600 N@ 004111 0000 AND 0000 /04111-0000 @@ 004112 0000 AND 0000 /04112-0000 @@ 004113 0000 AND 0000 /04113-0000 @@ 004114 0000 AND 0000 /04114-0000 @@ 004115 0000 AND 0000 /04115-0000 @@ 004116 0000 AND 0000 /04116-0000 @@ 004117 5200 JMP 4000 /04117-5200 *@ 004120 1123 TAD NALL /04120-1123 IS 004121 7640 SZA CLA /04121-7640 > 004122 5200 JMP 4000 /04122-5200 *@ 004123 5772 JMP I 4172 /04123-5772 /: 004124 7772 SPA SNA SZL CLA HLT /04124-7772 ?: 004125 0000 AND 0000 /04125-0000 @@ 004126 0000 AND 0000 /04126-0000 @@ 004127 0000 AND 0000 /04127-0000 @@ 004130 0000 AND 0000 /04130-0000 @@ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-111 004131 0000 AND 0000 /04131-0000 @@ 004132 0000 AND 0000 /04132-0000 @@ 004133 0000 AND 0000 /04133-0000 @@ 004134 0000 AND 0000 /04134-0000 @@ 004135 0000 AND 0000 /04135-0000 @@ 004136 0000 AND 0000 /04136-0000 @@ 004137 0000 AND 0000 /04137-0000 @@ 004140 1234 TAD 4034 /04140-1234 J\ 004141 7777 MQA MQL CLA SAM /04141-7777 ?? 004142 0000 AND 0000 /04142-0000 @@ 004143 0000 AND 0000 /04143-0000 @@ 004144 0411 AND I 0011 /04144-0411 DI 004145 2240 ISZ 4040 /04145-2240 R 004146 1420 TAD I 0020 /04146-1420 LP 004147 2472 ISZ I 0072 /04147-2472 T: 004150 7422 SNL HLT /04150-7422 <R 004151 1301 TAD 4101 /04151-1301 KA 004152 6072 6072 /04152-6072 0: 004153 5422 JMP I 0022 /04153-5422 ,R 004154 1302 TAD 4102 /04154-1302 KB 004155 6072 6072 /04155-6072 0: 004156 5705 JMP I 4105 /04156-5705 /E 004157 7564 SMA SZA SNL OSR /04157-7564 =4 004160 0000 AND 0000 /04160-0000 @@ 004161 0000 AND 0000 /04161-0000 @@ 004162 0000 AND 0000 /04162-0000 @@ 004163 0000 AND 0000 /04163-0000 @@ 004164 0000 AND 0000 /04164-0000 @@ 004165 0000 AND 0000 /04165-0000 @@ 004166 0000 AND 0000 /04166-0000 @@ 004167 0000 AND 0000 /04167-0000 @@ 004170 0000 AND 0000 /04170-0000 @@ 004171 0000 AND 0000 /04171-0000 @@ 004172 4200 JMS 4000 /04172-4200 "@ /CLA /04173-7200 :@ /CLA IAC /04174-7201 :A /TAD I 4000 /04175-1600 N@ /ISZ 4003 /04176-2203 RC /JMS 0077 /04177-4077 ? 004173 7200 004174 7201 004175 1600 004176 2203 004177 4077 4200 PAGE 004200 6552 TST5, FPICL /04200-6552 5* 004201 1071 TAD C5 /04201-1071 H9 004202 3122 DCA TSTNUM /04202-3122 YR 004203 1377 TAD (REC5 /04203-1377 K? 004204 3156 DCA CODE /04204-3156 Y. 004205 3145 DCA CNTSTP /04205-3145 Y% 004206 1376 TAD (MCOD5 /04206-1376 K> 004207 3157 DCA MCODE /04207-3157 Y/ 004210 1075 TAD C15 /04210-1075 H= /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-112 004211 3244 DCA 4244 /04211-3244 Z$ 004212 4451 JMS I PREAPT /04212-4451 $) 004213 1375 TAD (FPCA5 /04213-1375 K= 004214 3774 DCA I (FPCADR /04214-3774 _< 004215 1321 TAD C4015 /04215-1321 KQ 004216 3773 DCA I (FACEXP /04216-3773 _; 004217 1320 TAD C1111 /04217-1320 KP 004220 3772 DCA I (FACMA1 /04220-3772 _: 004221 3771 DCA I (FACMA0 /04221-3771 _9 004222 3770 DCA I (FACMA2 /04222-3770 _8 004223 3767 DCA I (FACMA3 /04223-3767 _7 004224 7201 CLA IAC /04224-7201 :A 004225 3766 DCA I (FACMA4 /04225-3766 _6 004226 1164 TAD C6410 /04226-1164 I4 DPSEL EXPEX FPINT LOCON 004227 6553 FPCOM /04227-6553 5+ 004230 7330 CLA CLL CML RAR /04230-7330 ;X 004231 6567 FPEP /04231-6567 57 004232 6561 FMODE /04232-6561 51 004233 1146 TAD APTP /04233-1146 I& 004234 6555 FPST /04234-6555 5- 004235 7410 SKP /04235-7410 <H 004236 5241 JMP 4241 /04236-5241 *! 004237 4452 JMS I SKFGPR /04237-4452 $* 004240 5200 JMP 4200 /04240-5200 *@ 004241 6556 FPRST /04241-6556 5. 004242 3147 DCA STATUS /04242-3147 Y' 004243 4453 JMS I CKSTAT /04243-4453 $+ 004244 0015 LOCKO EPMOD FPRUN /04244-0015 @M 004245 5200 JMP 4200 /04245-5200 *@ 004246 4454 JMS I RDREGS /04246-4454 $, 004247 4000 JMS 0000 /04247-4000 @ 004250 5200 JMP 4200 /04250-5200 *@ 004251 4436 JMS I XOPT /04251-4436 $^ 004252 0101 AND C200 /04252-0101 AA 004253 7650 SNA CLA /04253-7650 >( 004254 5257 JMP 4257 /04254-5257 */ 004255 4457 JMS I ABORT /04255-4457 $/ 004256 5201 JMP 4201 /04256-5201 *A 004257 2145 ISZ CNTSTP /04257-2145 Q% 004260 7410 SKP /04260-7410 <H 004261 4460 JMS I NORUN /04261-4460 $0 004262 6565 FMDO /04262-6565 55 004263 7200 CLA /04263-7200 :@ 004264 1145 TAD CNTSTP /04264-1145 I% 004265 1365 TAD 4365 /04265-1365 K5 004266 7640 SZA CLA /04266-7640 > 004267 5241 JMP 4241 /04267-5241 *! 004270 1364 TAD 4364 /04270-1364 K4 004271 3244 DCA 4244 /04271-3244 Z$ 004272 5241 JMP 4241 /04272-5241 *! 004273 7200 REC5, CLA /04273-7200 :@ 004274 4453 JMS I CKSTAT /04274-4453 $+ 004275 2014 TRPEX LOCKO EPMOD /04275-2014 PL 004276 5200 JMP 4200 /04276-5200 *@ 004277 4461 JMS I CHKAPT /04277-4461 $1 /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-113 004300 0000 AND 0000 /04300-0000 @@ 004301 4326 JMS 4326 /04301-4326 #V 004302 7213 CLA IAC RTR /04302-7213 :K 004303 7223 CLA CML IAC BSW /04303-7223 :S 004304 4324 JMS 4324 /04304-4324 #T 004305 4000 JMS 0000 /04305-4000 @ 004306 5555 JMP I 0155 /04306-5555 -- 004307 7777 MQA MQL CLA SAM /04307-7777 ?? 004310 7777 MQA MQL CLA SAM /04310-7777 ?? 004311 7776 SPA SNA SZL CLA OSR HLT /04311-7776 ?> 004312 0000 AND 0000 /04312-0000 @@ 004313 5200 JMP 4200 /04313-5200 *@ 004314 1123 TAD NALL /04314-1123 IS 004315 7640 SZA CLA /04315-7640 > 004316 5200 JMP 4200 /04316-5200 *@ 004317 5763 JMP I 4363 /04317-5763 /3 004320 1111 C1111, TAD 0111 /04320-1111 II 004321 4015 C4015, JMS 0015 /04321-4015 M 004322 0003 FPCA5, 0003 /FNEG /04322-0003 @C 004323 0004 0004 /FNORM /04323-0004 @D 004324 3000 3000 /TRAP3 0 /04324-3000 X@ 004325 4324 4324 / 4324 /04325-4324 #T 004326 0000 AND 0000 /04326-0000 @@ 004327 0000 AND 0000 /04327-0000 @@ 004330 0000 AND 0000 /04330-0000 @@ 004331 0000 AND 0000 /04331-0000 @@ 004332 0000 AND 0000 /04332-0000 @@ 004333 0000 AND 0000 /04333-0000 @@ 004334 0000 AND 0000 /04334-0000 @@ 004335 0000 AND 0000 /04335-0000 @@ 004336 0000 AND 0000 /04336-0000 @@ 004337 0000 AND 0000 /04337-0000 @@ 004340 0000 AND 0000 /04340-0000 @@ 004341 0000 AND 0000 /04341-0000 @@ 004342 0000 AND 0000 /04342-0000 @@ 004343 0000 AND 0000 /04343-0000 @@ 004344 0000 AND 0000 /04344-0000 @@ 004345 0000 AND 0000 /04345-0000 @@ 004346 0000 AND 0000 /04346-0000 @@ 004347 0000 AND 0000 /04347-0000 @@ 004350 0000 AND 0000 /04350-0000 @@ 004351 0000 AND 0000 /04351-0000 @@ 004352 0000 AND 0000 /04352-0000 @@ 004353 0000 AND 0000 /04353-0000 @@ 004354 0000 AND 0000 /04354-0000 @@ 004355 0000 AND 0000 /04355-0000 @@ 004356 0000 AND 0000 /04356-0000 @@ 004357 0000 AND 0000 /04357-0000 @@ 004360 0000 AND 0000 /04360-0000 @@ 004361 0000 AND 0000 /04361-0000 @@ 004362 0000 AND 0000 /04362-0000 @@ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-114 004363 4400 JMS I 0000 /04363-4400 $@ 004364 2015 ISZ 0015 /04364-2015 PM 004365 7625 MQL CLA MUY /04365-7625 >U /CLA RTR /04366-7212 :J /CLA IAC RAR /04367-7211 :I /CLA RAR /04370-7210 :H /CLA RTL /04371-7206 :F /CLA IAC RTL /04372-7207 :G /CLA IAC RAL /04373-7205 :E /CLA IAC /04374-7201 :A /JMS 4322 /04375-4322 #R /ISZ 4307 /04376-2307 SG /JMS 4273 /04377-4273 "; 004366 7212 004367 7211 004370 7210 004371 7206 004372 7207 004373 7205 004374 7201 004375 4322 004376 2307 004377 4273 4400 PAGE 004400 6552 TST6, FPICL /04400-6552 5* 004401 7327 CLA CLL CML IAC RTL /04401-7327 ;W 004402 3122 DCA TSTNUM /04402-3122 YR 004403 1377 TAD (REC6 /04403-1377 K? 004404 3156 DCA CODE /04404-3156 Y. 004405 3145 DCA CNTSTP /04405-3145 Y% 004406 1376 TAD (MCOD6 /04406-1376 K> 004407 3157 DCA MCODE /04407-3157 Y/ 004410 4451 JMS I PREAPT /04410-4451 $) 004411 1375 TAD (FPCA6 /04411-1375 K= 004412 3774 DCA I (FPCADR /04412-3774 _< 004413 1373 TAD (1603 /04413-1373 K; 004414 3772 DCA I (FACMA1 /04414-3772 _: 004415 7201 CLA IAC /04415-7201 :A 004416 3771 DCA I (FACMA0 /04416-3771 _9 004417 1075 TAD C15 /04417-1075 H= 004420 3237 DCA 4437 /04420-3237 Z_ 004421 1164 TAD C6410 /04421-1164 I4 DPSEL EXPEX FPENA LOCON 004422 6553 FPCOM /04422-6553 5+ 004423 7330 CLA CLL CML RAR /04423-7330 ;X 004424 6567 FPEP /04424-6567 57 004425 6561 FMODE /04425-6561 51 004426 1146 TAD APTP /04426-1146 I& 004427 6555 FPST /04427-6555 5- 004430 7410 SKP /04430-7410 <H 004431 5234 JMP 4434 /04431-5234 *\ 004432 4452 JMS I SKFGPR /04432-4452 $* 004433 5200 JMP 4400 /04433-5200 *@ 004434 6556 FPRST /04434-6556 5. 004435 3147 DCA STATUS /04435-3147 Y' /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-115 004436 4453 JMS I CKSTAT /04436-4453 $+ 004437 0015 LOCKO EPMOD FPRUN /04437-0015 @M 004440 5200 JMP 4400 /04440-5200 *@ 004441 4454 JMS I RDREGS /04441-4454 $, 004442 4000 JMS 0000 /04442-4000 @ 004443 5200 JMP 4400 /04443-5200 *@ 004444 4436 JMS I XOPT /04444-4436 $^ 004445 0101 AND C200 /04445-0101 AA 004446 7650 SNA CLA /04446-7650 >( 004447 5252 JMP 4452 /04447-5252 ** 004450 4457 JMS I ABORT /04450-4457 $/ 004451 5201 JMP 4401 /04451-5201 *A 004452 6565 FMDO /04452-6565 55 004453 2145 ISZ CNTSTP /04453-2145 Q% 004454 7410 SKP /04454-7410 <H 004455 4460 JMS I NORUN /04455-4460 $0 004456 1145 TAD CNTSTP /04456-1145 I% 004457 1342 TAD 4542 /04457-1342 K" 004460 7440 SZA /04460-7440 < 004461 7410 SKP /04461-7410 <H 004462 5302 JMP 4502 /04462-5302 +B 004463 1112 TAD CM23 /04463-1112 IJ 004464 7440 SZA /04464-7440 < 004465 7410 SKP /04465-7410 <H 004466 5301 JMP 4501 /04466-5301 +A 004467 1341 TAD 4541 /04467-1341 K! 004470 7440 SZA /04470-7440 < 004471 7410 SKP /04471-7410 <H 004472 5305 JMP 4505 /04472-5305 +E 004473 1370 TAD 4570 /04473-1370 K8 004474 7640 SZA CLA /04474-7640 > 004475 7410 SKP /04475-7410 <H 004476 5310 JMP 4510 /04476-5310 +H 004477 7200 CLA /04477-7200 :@ 004500 5234 JMP 4434 /04500-5234 *\ 004501 1107 TAD C4000 /04501-1107 IG 004502 1340 TAD 4540 /04502-1340 K 004503 3237 DCA 4437 /04503-3237 Z_ 004504 5234 JMP 4434 /04504-5234 *\ 004505 1075 TAD C15 /04505-1075 H= 004506 3237 DCA 4437 /04506-3237 Z_ 004507 5234 JMP 4434 /04507-5234 *\ 004510 1367 TAD 4567 /04510-1367 K7 004511 3237 DCA 4437 /04511-3237 Z_ 004512 5234 JMP 4434 /04512-5234 *\ 004513 7200 REC6, CLA /04513-7200 :@ 004514 4453 JMS I CKSTAT /04514-4453 $+ 004515 2014 TRPEX LOCKO EPMOD /04515-2014 PL 004516 5200 JMP 4400 /04516-5200 *@ 004517 4461 JMS I CHKAPT /04517-4461 $1 004520 1001 TAD 0001 /04520-1001 HA 004521 1606 TAD I 4406 /04521-1606 NF 004522 7213 CLA IAC RTR /04522-7213 :K 004523 7223 CLA CML IAC BSW /04523-7223 :S /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-116 004524 1604 TAD I 4404 /04524-1604 ND 004525 0001 AND 0001 /04525-0001 @A 004526 0001 AND 0001 /04526-0001 @A 004527 1603 TAD I 4403 /04527-1603 NC 004530 0000 AND 0000 /04530-0000 @@ 004531 0000 AND 0000 /04531-0000 @@ 004532 0000 AND 0000 /04532-0000 @@ 004533 5200 JMP 4400 /04533-5200 *@ 004534 1123 TAD NALL /04534-1123 IS 004535 7640 SZA CLA /04535-7640 > 004536 5200 JMP 4400 /04536-5200 *@ 004537 5766 JMP I 4566 /04537-5766 /6 004540 0011 AND 0011 /04540-0011 @I 004541 7767 MQA MQL CLA SWBA /04541-7767 ?7 004542 7747 MQA CLA SWBA /04542-7747 ?' 004543 0005 FPCA6, 0005 /STARTF /04543-0005 @E 004544 0006 0006 /STARTD /04544-0006 @F 004545 0007 0007 /JAC /04545-0007 @G 004546 0727 0727 /FLDA % BASE+25X2+ /04546-0727 GW 004547 0727 0727 /FLDA % BASE+25X2+ /04547-0727 GW 004550 0327 0327 /FLDA BASE+405 /04550-0327 CW 004551 5333 5333 /FADDM BASE+421 /04551-5333 +[ 004552 0000 0000 /FEXIT /04552-0000 @@ 004553 0000 0000 /FEXIT /04553-0000 @@ 004554 7754 SPA SNA CLA OSR /04554-7754 ?, 004555 0000 AND 0000 /04555-0000 @@ 004556 0000 AND 0000 /04556-0000 @@ 004557 1061 TAD 0061 /04557-1061 H1 004560 7041 CMA IAC /04560-7041 8! 004561 1062 TAD 0062 /04561-1062 H2 004562 7650 SNA CLA /04562-7650 >( 004563 2356 ISZ 4556 /04563-2356 S. 004564 5756 JMP I 4556 /04564-5756 /. 004565 0003 AND 0003 /04565-0003 @C 004566 4600 JMS I 4400 /04566-4600 &@ 004567 2015 ISZ 0015 /04567-2015 PM 004570 7774 SPA SNA SZL CLA OSR /04570-7774 ?< /CLA RTL /04571-7206 :F /CLA IAC RTL /04572-7207 :G /TAD I 4403 /04573-1603 NC /CLA IAC /04574-7201 :A /JMS I 0143 /04575-4543 %# /ISZ I 4467 /04576-2667 V7 /JMS I 0113 /04577-4513 %K 004571 7206 004572 7207 004573 1603 004574 7201 004575 4543 004576 2667 004577 4513 4600 PAGE /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-117 004600 6552 TST7, FPICL /04600-6552 5* 004601 1072 TAD C7 /04601-1072 H: 004602 3122 DCA TSTNUM /04602-3122 YR 004603 1377 TAD (REC7 /04603-1377 K? 004604 3156 DCA CODE /04604-3156 Y. 004605 3145 DCA CNTSTP /04605-3145 Y% 004606 1376 TAD (MCOD7 /04606-1376 K> 004607 3157 DCA MCODE /04607-3157 Y/ 004610 4451 JMS I PREAPT /04610-4451 $) 004611 1375 TAD (2002 /04611-1375 K= 004612 3774 DCA I (FACMA0 /04612-3774 _< 004613 1373 TAD (FPCA7 /04613-1373 K; 004614 3772 DCA I (FPCADR /04614-3772 _: 004615 1371 TAD (27 /04615-1371 K9 004616 3770 DCA I (FACEXP /04616-3770 _8 004617 1367 TAD (30 /04617-1367 K7 004620 3766 DCA I (INDEX+7 /04620-3766 _6 004621 1075 TAD C15 /04621-1075 H= 004622 3241 DCA 4641 /04622-3241 Z! 004623 1164 TAD C6410 /04623-1164 I4 DPSEL EXPEX FPENA LOCON 004624 6553 FPCOM /04624-6553 5+ 004625 7330 CLA CLL CML RAR /04625-7330 ;X 004626 6567 FPEP /04626-6567 57 004627 6561 FMODE /04627-6561 51 004630 1146 TAD APTP /04630-1146 I& 004631 6555 FPST /04631-6555 5- 004632 7410 SKP /04632-7410 <H 004633 5236 JMP 4636 /04633-5236 *^ 004634 4452 JMS I SKFGPR /04634-4452 $* 004635 5200 JMP 4600 /04635-5200 *@ 004636 6556 FPRST /04636-6556 5. 004637 3147 DCA STATUS /04637-3147 Y' 004640 4453 JMS I CKSTAT /04640-4453 $+ 004641 0015 LOCKO EPMOD FPRUN /04641-0015 @M 004642 5200 JMP 4600 /04642-5200 *@ 004643 4454 JMS I RDREGS /04643-4454 $, 004644 4000 JMS 0000 /04644-4000 @ 004645 5200 JMP 4600 /04645-5200 *@ 004646 4436 JMS I XOPT /04646-4436 $^ 004647 0101 AND C200 /04647-0101 AA 004650 7650 SNA CLA /04650-7650 >( 004651 5254 JMP 4654 /04651-5254 *, 004652 4457 JMS I ABORT /04652-4457 $/ 004653 5201 JMP 4601 /04653-5201 *A 004654 2145 ISZ CNTSTP /04654-2145 Q% 004655 5257 JMP 4657 /04655-5257 */ 004656 4460 JMS I NORUN /04656-4460 $0 004657 6565 FMDO /04657-6565 55 004660 1145 TAD CNTSTP /04660-1145 I% 004661 1365 TAD (-130 /04661-1365 K5 004662 7450 SNA /04662-7450 <( 004663 5272 JMP 4672 /04663-5272 *: 004664 1364 TAD (-17 /04664-1364 K4 004665 7640 SZA CLA /04665-7640 > 004666 5236 JMP 4636 /04666-5236 *^ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-118 004667 1363 TAD 4763 /04667-1363 K3 004670 3241 DCA 4641 /04670-3241 Z! 004671 5236 JMP 4636 /04671-5236 *^ 004672 1362 TAD 4762 /04672-1362 K2 004673 3241 DCA 4641 /04673-3241 Z! 004674 5236 JMP 4636 /04674-5236 *^ 004675 7200 REC7, CLA /04675-7200 :@ 004676 4453 JMS I CKSTAT /04676-4453 $+ 004677 6010 DPMOD TRPEX LOCKO /04677-6010 0H 004700 5200 JMP 4600 /04700-5200 *@ 004701 4461 JMS I CHKAPT /04701-4461 $1 004702 0000 AND 0000 /04702-0000 @@ 004703 4744 JMS I 4744 /04703-4744 '$ 004704 7213 CLA IAC RTR /04704-7213 :K 004705 7223 CLA CML IAC BSW /04705-7223 :S 004706 4742 JMS I 4742 /04706-4742 '" 004707 0030 AND 0030 /04707-0030 @X 004710 1001 TAD 0001 /04710-1001 HA 004711 0001 AND 0001 /04711-0001 @A 004712 0004 AND 0004 /04712-0004 @D 004713 0005 AND 0005 /04713-0005 @E 004714 0006 AND 0006 /04714-0006 @F 004715 5200 JMP 4600 /04715-5200 *@ 004716 4462 JMS I CHKIDX /04716-4462 $2 004717 0000 AND 0000 /04717-0000 @@ 004720 0000 AND 0000 /04720-0000 @@ 004721 0003 AND 0003 /04721-0003 @C 004722 0000 AND 0000 /04722-0000 @@ 004723 0000 AND 0000 /04723-0000 @@ 004724 0000 AND 0000 /04724-0000 @@ 004725 0001 AND 0001 /04725-0001 @A 004726 0030 AND 0030 /04726-0030 @X 004727 5200 JMP 4600 /04727-5200 *@ 004730 1123 TAD NALL /04730-1123 IS 004731 7640 SZA CLA /04731-7640 > 004732 5200 JMP 4600 /04732-5200 *@ 004733 5761 JMP I 4761 /04733-5761 /1 004734 7763 MQA MQL CLA DAD /04734-7763 ?3 004735 5252 JMP 4652 /04735-5252 ** 004736 0017 FPCA7, 0017 /ALN 7 /04736-0017 @O 004737 0022 0022 /ATX 2 /04737-0022 @R 004740 0006 0006 /STARTD /04740-0006 @F 004741 0026 0026 /ATX 6 /04741-0026 @V 004742 4000 4000 /TRAP4 0 /04742-4000 @ 004743 4742 4742 / 4742 /04743-4742 '" 004744 4507 JMS I 0107 /04744-4507 %G 004745 4507 JMS I 0107 /04745-4507 %G 004746 3060 DCA 0060 /04746-3060 X0 004747 3061 DCA 0061 /04747-3061 X1 /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-119 004750 1367 TAD 4767 /04750-1367 K7 004751 3034 DCA 0034 /04751-3034 X\ 004752 7330 CLA CLL CML RAR /04752-7330 ;X 004753 4470 JMS I 0070 /04753-4470 $8 004754 7200 CLA /04754-7200 :@ 004755 4477 JMS I 0077 /04755-4477 $? 004756 3062 DCA 0062 /04756-3062 X2 004757 4514 JMS I 0114 /04757-4514 %L 004760 4511 JMS I 0111 /04760-4511 %I 004761 5000 JMP 0000 /04761-5000 (@ 004762 4011 JMS 0011 /04762-4011 I 004763 6011 6011 /04763-6011 0I /MQA MQL CLA SCA /04764-7761 ?1 /SNA CLA /04765-7650 >( /CLA CML BSW /04766-7222 :R /AND 0030 /04767-0030 @X /CLA IAC RAL /04770-7205 :E /AND 0027 /04771-0027 @W /CLA IAC /04772-7201 :A /JMS I 4736 /04773-4736 '^ /CLA RTL /04774-7206 :F /ISZ 0002 /04775-2002 PB /DCA 0103 /04776-3103 YC /JMS I 4675 /04777-4675 &= 004764 7761 004765 7650 004766 7222 004767 0030 004770 7205 004771 0027 004772 7201 004773 4736 004774 7206 004775 2002 004776 3103 004777 4675 5000 PAGE 005000 6552 TST10, FPICL /05000-6552 5* 005001 1324 TAD 5124 /05001-1324 KT 005002 3122 DCA TSTNUM /05002-3122 YR 005003 1377 TAD (REC10 /05003-1377 K? 005004 3156 DCA CODE /05004-3156 Y. 005005 3145 DCA CNTSTP /05005-3145 Y% 005006 1376 TAD (MCOD10 /05006-1376 K> 005007 3157 DCA MCODE /05007-3157 Y/ 005010 1075 TAD C15 /05010-1075 H= 005011 3237 DCA 5037 /05011-3237 Z_ 005012 4451 JMS I PREAPT /05012-4451 $) 005013 1375 TAD (FPCA10 /05013-1375 K= 005014 3774 DCA I (FPCADR /05014-3774 _< 005015 1373 TAD (5252 /05015-1373 K; 005016 3772 DCA I (INDEX+2 /05016-3772 _: 005017 7201 CLA IAC /05017-7201 :A 005020 3771 DCA I (APT /05020-3771 _9 /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-120 005021 1164 TAD C6410 /05021-1164 I4 DPSEL EXPEX FPENA LOCON 005022 6553 FPCOM /05022-6553 5+ 005023 7330 CLA CLL CML RAR /05023-7330 ;X 005024 6567 FPEP /05024-6567 57 005025 6561 FMODE /05025-6561 51 005026 1146 TAD APTP /05026-1146 I& 005027 6555 FPST /05027-6555 5- 005030 7410 SKP /05030-7410 <H 005031 5234 JMP 5034 /05031-5234 *\ 005032 4452 JMS I SKFGPR /05032-4452 $* 005033 5200 JMP 5000 /05033-5200 *@ 005034 6556 FPRST /05034-6556 5. 005035 3147 DCA STATUS /05035-3147 Y' 005036 4453 JMS I CKSTAT /05036-4453 $+ 005037 0015 LOCKO EPMOD FPRUN /05037-0015 @M 005040 5200 JMP 5000 /05040-5200 *@ 005041 4454 JMS I RDREGS /05041-4454 $, 005042 4000 JMS 0000 /05042-4000 @ 005043 5200 JMP 5000 /05043-5200 *@ 005044 4436 JMS I XOPT /05044-4436 $^ 005045 0101 AND C200 /05045-0101 AA 005046 7650 SNA CLA /05046-7650 >( 005047 5252 JMP 5052 /05047-5252 ** 005050 4457 JMS I ABORT /05050-4457 $/ 005051 5201 JMP 5001 /05051-5201 *A 005052 2145 ISZ CNTSTP /05052-2145 Q% 005053 7410 SKP /05053-7410 <H 005054 4460 JMS I NORUN /05054-4460 $0 005055 6565 FMDO /05055-6565 55 005056 1145 TAD CNTSTP /05056-1145 I% 005057 1370 TAD (-103 /05057-1370 K8 005060 7640 SZA CLA /05060-7640 > 005061 5234 JMP 5034 /05061-5234 *\ 005062 1367 TAD 5167 /05062-1367 K7 005063 3237 DCA 5037 /05063-3237 Z_ 005064 5234 JMP 5034 /05064-5234 *\ 005065 7200 REC10, CLA /05065-7200 :@ 005066 4453 JMS I CKSTAT /05066-4453 $+ 005067 2014 TRPEX LOCKO EPMOD /05067-2014 PL 005070 5200 JMP 5000 /05070-5200 *@ 005071 4461 JMS I CHKAPT /05071-4461 $1 005072 1001 TAD 0001 /05072-1001 HA 005073 1612 TAD I 5012 /05073-1612 NJ 005074 7213 CLA IAC RTR /05074-7213 :K 005075 7223 CLA CML IAC BSW /05075-7223 :S 005076 1610 TAD I 5010 /05076-1610 NH 005077 0013 AND 0013 /05077-0013 @K 005100 5252 JMP 5052 /05100-5252 ** 005101 0000 AND 0000 /05101-0000 @@ 005102 0000 AND 0000 /05102-0000 @@ 005103 0000 AND 0000 /05103-0000 @@ 005104 0000 AND 0000 /05104-0000 @@ 005105 5200 JMP 5000 /05105-5200 *@ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-121 005106 4462 JMS I CHKIDX /05106-4462 $2 005107 0000 AND 0000 /05107-0000 @@ 005110 0000 AND 0000 /05110-0000 @@ 005111 5252 JMP 5052 /05111-5252 ** 005112 0000 AND 0000 /05112-0000 @@ 005113 0000 AND 0000 /05113-0000 @@ 005114 0000 AND 0000 /05114-0000 @@ 005115 0000 AND 0000 /05115-0000 @@ 005116 0000 AND 0000 /05116-0000 @@ 005117 5200 JMP 5000 /05117-5200 *@ 005120 1123 TAD NALL /05120-1123 IS 005121 7640 SZA CLA /05121-7640 > 005122 5200 JMP 5000 /05122-5200 *@ 005123 5766 JMP I 5166 /05123-5766 /6 005124 0010 AND 0010 /05124-0010 @H 005125 7610 SKP CLA /05125-7610 >H 005126 4507 JMS I 0107 /05126-4507 %G 005127 4771 JMS I 5171 /05127-4771 '9 005130 3060 DCA 0060 /05130-3060 X0 005131 3061 DCA 0061 /05131-3061 X1 005132 1370 TAD 5170 /05132-1370 K8 005133 3034 DCA 0034 /05133-3034 X\ 005134 1060 TAD 0060 /05134-1060 H0 005135 4470 JMS I 0070 /05135-4470 $8 005136 7200 CLA /05136-7200 :@ 005137 4476 JMS I 0076 /05137-4476 $> 005140 3062 DCA 0062 /05140-3062 X2 005141 4514 JMS I 0114 /05141-4514 %L 005142 4511 JMS I 0111 /05142-4511 %I 005143 2060 ISZ 0060 /05143-2060 P0 005144 2034 ISZ 0034 /05144-2034 P\ 005145 5334 JMP 5134 /05145-5334 +\ 005146 5426 JMP I 0026 /05146-5426 ,V 005147 0000 AND 0000 /05147-0000 @@ 005150 4320 JMS 5120 /05150-4320 #P 005151 1727 TAD I 5127 /05151-1727 OW 005152 0522 AND I 0122 /05152-0522 ER 005153 4006 JMS 0006 /05153-4006 F 005154 0111 AND 0111 /05154-0111 AI 005155 1425 TAD I 0025 /05155-1425 LU 005156 2205 ISZ 5005 /05156-2205 RE 005157 4300 JMS 5100 /05157-4300 #@ 005160 0000 AND 0000 /05160-0000 @@ 005161 7200 CLA /05161-7200 :@ 005162 4512 JMS I 0112 /05162-4512 %J 005163 7006 RTL /05163-7006 8F 005164 7710 SPA CLA /05164-7710 ?H 005165 5426 JMP I 0026 /05165-5426 ,V 005166 5200 JMP 5000 /05166-5200 *@ 005167 2015 ISZ 0015 /05167-2015 PM /MQL CLA DCM /05170-7675 >= /CLA /05171-7200 :@ /7215 /05172-7215 :M /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-122 /JMP 5052 /05173-5252 ** /CLA IAC /05174-7201 :A /TAD I 5006 /05175-1606 NF /DCA I 0045 /05176-3445 \% /JMP 0065 /05177-5065 (5 005170 7675 005171 7200 005172 7215 005173 5252 005174 7201 005175 1606 005176 3445 005177 5065 5200 PAGE 005200 6552 TST11, FPICL /05200-6552 5* 005201 1073 TAD C11 /05201-1073 H; 005202 3122 DCA TSTNUM /05202-3122 YR 005203 1377 TAD (REC11 /05203-1377 K? 005204 3156 DCA CODE /05204-3156 Y. 005205 3145 DCA CNTSTP /05205-3145 Y% 005206 1376 TAD (MCOD11 /05206-1376 K> 005207 3157 DCA MCODE /05207-3157 Y/ 005210 1075 TAD C15 /05210-1075 H= 005211 3241 DCA 5241 /05211-3241 Z! 005212 4451 JMS I PREAPT /05212-4451 $) 005213 1375 TAD 5375 /05213-1375 K= 005214 3774 DCA I 5374 /05214-3774 _< 005215 1373 TAD 5373 /05215-1373 K; 005216 3772 DCA I 5372 /05216-3772 _: 005217 1371 TAD 5371 /05217-1371 K9 005220 3770 DCA I 5370 /05220-3770 _8 005221 1367 TAD 5367 /05221-1367 K7 005222 3766 DCA I 5366 /05222-3766 _6 005223 1164 TAD C6410 /05223-1164 I4 DPSEL EXPEX FPENA LOCON 005224 6553 FPCOM /05224-6553 5+ 005225 7330 CLA CLL CML RAR /05225-7330 ;X 005226 6567 FPEP /05226-6567 57 005227 6561 FMODE /05227-6561 51 005230 1146 TAD APTP /05230-1146 I& 005231 6555 FPST /05231-6555 5- 005232 7410 SKP /05232-7410 <H 005233 5236 JMP 5236 /05233-5236 *^ 005234 4452 JMS I SKFGPR /05234-4452 $* 005235 5200 JMP 5200 /05235-5200 *@ 005236 6556 FPRST /05236-6556 5. 005237 3147 DCA STATUS /05237-3147 Y' 005240 4453 JMS I CKSTAT /05240-4453 $+ 005241 0015 LOCKO EPMOD FPRUN /05241-0015 @M 005242 5200 JMP 5200 /05242-5200 *@ 005243 4454 JMS I RDREGS /05243-4454 $, 005244 4000 JMS 0000 /05244-4000 @ 005245 5200 JMP 5200 /05245-5200 *@ 005246 4436 JMS I XOPT /05246-4436 $^ 005247 0101 AND C200 /05247-0101 AA /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-123 005250 7650 SNA CLA /05250-7650 >( 005251 5254 JMP 5254 /05251-5254 *, 005252 4457 JMS I ABORT /05252-4457 $/ 005253 5201 JMP 5201 /05253-5201 *A 005254 2145 ISZ CNTSTP /05254-2145 Q% 005255 7410 SKP /05255-7410 <H 005256 4460 JMS I NORUN /05256-4460 $0 005257 6565 FMDO /05257-6565 55 005260 5236 JMP 5236 /05260-5236 *^ 005261 7200 REC11, CLA /05261-7200 :@ 005262 4453 JMS I CKSTAT /05262-4453 $+ 005263 0014 LOCKO EPMOD /05263-0014 @L 005264 5200 JMP 5200 /05264-5200 *@ 005265 4461 JMS I CHKAPT /05265-4461 $1 005266 1001 TAD 0001 /05266-1001 HA 005267 1617 TAD I 5217 /05267-1617 NO 005270 7213 CLA IAC RTR /05270-7213 :K 005271 7223 CLA CML IAC BSW /05271-7223 :S 005272 1612 TAD I 5212 /05272-1612 NJ 005273 0001 AND 0001 /05273-0001 @A 005274 0002 AND 0002 /05274-0002 @B 005275 0003 AND 0003 /05275-0003 @C 005276 0004 AND 0004 /05276-0004 @D 005277 0005 AND 0005 /05277-0005 @E 005300 0006 AND 0006 /05300-0006 @F 005301 5200 JMP 5200 /05301-5200 *@ 005302 1123 TAD NALL /05302-1123 IS 005303 7640 SZA CLA /05303-7640 > 005304 5200 JMP 5200 /05304-5200 *@ 005305 5765 JMP I 5365 /05305-5765 /5 005306 1100 TAD C177 /05306-1100 I@ 005307 7213 CLA IAC RTR /05307-7213 :K 005310 1110 TAD 0110 /05310-1110 IH 005311 7223 CLA CML IAC BSW /05311-7223 :S 005312 1121 TAD 0121 /05312-1121 IQ 005313 1612 TAD I 5212 /05313-1612 NJ 005314 1030 TAD 0030 /05314-1030 HX 005315 7224 CLA CML RAL /05315-7224 :T 005316 3276 DCA 5276 /05316-3276 Z> 005317 5274 JMP 5274 /05317-5274 *< 005320 3343 DCA 5343 /05320-3343 [# 005321 1020 TAD OPTS /05321-1020 HP 005322 7106 CLL RTL /05322-7106 9F 005323 7004 RAL /05323-7004 8D 005324 1343 TAD 5343 /05324-1343 K# 005325 3020 DCA OPTS /05325-3020 XP 005326 2344 ISZ 5344 /05326-2344 S$ 005327 5274 JMP 5274 /05327-5274 *< 005330 1375 TAD 5375 /05330-1375 K= 005331 7041 CMA IAC /05331-7041 8! 005332 1276 TAD 5276 /05332-1276 J> 005333 7650 SNA CLA /05333-7650 >( /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-124 005334 5656 JMP I 5256 /05334-5656 .. 005335 4516 JMS I 0116 /05335-4516 %N 005336 5347 JMP 5347 /05336-5347 +' 005337 4512 JMS I 0112 /05337-4512 %J 005340 4524 JMS I 0124 /05340-4524 %T 005341 4527 JMS I 0127 /05341-4527 %W 005342 5656 JMP I 5256 /05342-5656 .. 005343 0000 AND 0000 /05343-0000 @@ 005344 0000 AND 0000 /05344-0000 @@ 005345 4773 JMS I 5373 /05345-4773 '; 005346 5274 JMP 5274 /05346-5274 *< 005347 4323 JMS 5323 /05347-4323 #S 005350 2275 ISZ 5275 /05350-2275 R= 005351 0000 AND 0000 /05351-0000 @@ 005352 7743 MQA CLA DAD /05352-7743 ?# 005353 0000 AND 0000 /05353-0000 @@ 005354 3603 DCA I 5203 /05354-3603 ^C 005355 4300 JMS 5300 /05355-4300 #@ 005356 3607 DCA I 5207 /05356-3607 ^G 005357 4300 JMS 5300 /05357-4300 #@ 005360 0175 AND 0175 /05360-0175 A= 005361 0000 AND 0000 /05361-0000 @@ 005362 0275 AND 5275 /05362-0275 B= 005363 0000 AND 0000 /05363-0000 @@ 005364 0375 AND 5375 /05364-0375 C= 005365 5400 JMP I 0000 /05365-5400 ,@ 005366 7201 CLA IAC /05366-7201 :A 005367 5306 JMP 5306 /05367-5306 +F 005370 7202 CLA BSW /05370-7202 :B 005371 6543 6543 /05371-6543 5# 005372 7200 CLA /05372-7200 :@ 005373 0770 AND I 5370 /05373-0770 G8 005374 7203 CLA IAC BSW /05374-7203 :C 005375 1234 TAD 5234 /05375-1234 J\ /DCA I 5305 /05376-3705 _E /JMP 5261 /05377-5261 *1 005376 3705 005377 5261 5400 PAGE 005400 6552 TST12, FPICL /05400-6552 5* 005401 1074 TAD C12 /05401-1074 H< 005402 3122 DCA TSTNUM /05402-3122 YR 005403 1377 TAD (REC12 /05403-1377 K? 005404 3156 DCA CODE /05404-3156 Y. 005405 3145 DCA CNTSTP /05405-3145 Y% 005406 1376 TAD (MCOD12 /05406-1376 K> 005407 3157 DCA MCODE /05407-3157 Y/ 005410 4451 JMS I PREAPT /05410-4451 $) 005411 1375 TAD 5575 /05411-1375 K= 005412 3774 DCA I 5574 /05412-3774 _< 005413 1165 TAD C2410 /05413-1165 I5 005414 6553 FPCOM /05414-6553 5+ 005415 7330 CLA CLL CML RAR /05415-7330 ;X 005416 6567 FPEP /05416-6567 57 /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-125 005417 6561 FMODE /05417-6561 51 005420 1146 TAD APTP /05420-1146 I& 005421 6555 FPST /05421-6555 5- 005422 7410 SKP /05422-7410 <H 005423 5226 JMP 5426 /05423-5226 *V 005424 4452 JMS I SKFGPR /05424-4452 $* 005425 5200 JMP 5400 /05425-5200 *@ 005426 6556 FPRST /05426-6556 5. 005427 3147 DCA STATUS /05427-3147 Y' 005430 4453 JMS I CKSTAT /05430-4453 $+ 005431 0015 LOCKO EPMOD FPRUN /05431-0015 @M 005432 5200 JMP 5400 /05432-5200 *@ 005433 4454 JMS I RDREGS /05433-4454 $, 005434 4000 JMS 0000 /05434-4000 @ 005435 5200 JMP 5400 /05435-5200 *@ 005436 4436 JMS I XOPT /05436-4436 $^ 005437 0101 AND C200 /05437-0101 AA 005440 7650 SNA CLA /05440-7650 >( 005441 5244 JMP 5444 /05441-5244 *$ 005442 4457 JMS I ABORT /05442-4457 $/ 005443 5201 JMP 5401 /05443-5201 *A 005444 2145 ISZ CNTSTP /05444-2145 Q% 005445 7410 SKP /05445-7410 <H 005446 4460 JMS I NORUN /05446-4460 $0 005447 6565 FMDO /05447-6565 55 005450 5226 JMP 5426 /05450-5226 *V 005451 7200 REC12, CLA /05451-7200 :@ 005452 4453 JMS I CKSTAT /05452-4453 $+ 005453 0014 LOCKO EPMOD /05453-0014 @L 005454 5200 JMP 5400 /05454-5200 *@ 005455 4461 JMS I CHKAPT /05455-4461 $1 005456 0000 AND 0000 /05456-0000 @@ 005457 7401 7401 /05457-7401 <A 005460 7213 CLA IAC RTR /05460-7213 :K 005461 7223 CLA CML IAC BSW /05461-7223 :S 005462 7356 7356 /05462-7356 ;. 005463 3777 DCA I 5577 /05463-3777 _? 005464 3777 DCA I 5577 /05464-3777 _? 005465 7777 MQA MQL CLA SAM /05465-7777 ?? 005466 4040 JMS 0040 /05466-4040 005467 0505 AND I 0105 /05467-0505 EE 005470 6060 6060 /05470-6060 00 005471 5200 JMP 5400 /05471-5200 *@ 005472 1123 TAD NALL /05472-1123 IS 005473 7640 SZA CLA /05473-7640 > 005474 5200 JMP 5400 /05474-5200 *@ 005475 5773 JMP I 5573 /05475-5773 /; 005476 7777 TSNLST, MQA MQL CLA SAM /05476-7777 ?? 005477 7776 SPA SNA SZL CLA OSR HLT /05477-7776 ?> 005500 7775 MQA MQL CLA DCM /05500-7775 ?= 005501 7774 SPA SNA SZL CLA OSR /05501-7774 ?< 005502 7773 MQA MQL CLA DPIC /05502-7773 ?; /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-126 005503 7772 SPA SNA SZL CLA HLT /05503-7772 ?: 005504 7771 MQA MQL CLA DPSZ /05504-7771 ?9 005505 7770 SPA SNA SZL CLA /05505-7770 ?8 005506 7767 MQA MQL CLA SWBA /05506-7767 ?7 005507 7766 SMA SZA SNL CLA OSR HLT /05507-7766 ?6 005510 7765 MQA MQL CLA DST /05510-7765 ?5 005511 7764 SMA SZA SNL CLA OSR /05511-7764 ?4 005512 7763 MQA MQL CLA DAD /05512-7763 ?3 005513 7762 SMA SZA SNL CLA HLT /05513-7762 ?2 005514 7761 MQA MQL CLA SCA /05514-7761 ?1 005515 7760 SMA SZA SNL CLA /05515-7760 ?0 005516 7757 MQA CLA SAM /05516-7757 ?/ 005517 7756 SPA SNA CLA OSR HLT /05517-7756 ?. 005520 7755 7755 /05520-7755 ?- 005521 7754 SPA SNA CLA OSR /05521-7754 ?, 005522 0000 AND 0000 /05522-0000 @@ 005523 3200 TSTLST, DCA 5400 /05523-3200 Z@ 005524 3440 DCA I 0040 /05524-3440 \ 005525 3663 DCA I 5463 /05525-3663 ^3 005526 4000 JMS 0000 /05526-4000 @ 005527 4200 JMS 5400 /05527-4200 "@ 005530 4400 JMS I 0000 /05530-4400 $@ 005531 4600 JMS I 5400 /05531-4600 &@ 005532 5000 JMP 0000 /05532-5000 (@ 005533 5200 JMP 5400 /05533-5200 *@ 005534 5400 JMP I 0000 /05534-5400 ,@ 005535 5600 JMP I 5400 /05535-5600 .@ 005536 6000 SKON /05536-6000 0@ 005537 6200 LXM /05537-6200 2@ 005540 6400 6400 /05540-6400 4@ 005541 6600 6600 /05541-6600 6@ 005542 7145 CLL CMA IAC RAL /05542-7145 9% 005543 7150 CLL CMA RAR /05543-7150 9( 005544 7153 CLL CMA IAC RTR /05544-7153 9+ 005545 7156 7156 /05545-7156 9. 005546 7161 CLL CMA CML IAC /05546-7161 91 005547 1055 TAD ACBAD /05547-1055 H- 005550 4502 JMS I 0102 /05550-4502 %B 005551 3057 DCA 0057 /05551-3057 X/ 005552 1056 TAD 0056 /05552-1056 H. 005553 7041 CMA IAC /05553-7041 8! 005554 1057 TAD 0057 /05554-1057 H/ 005555 7640 SZA CLA /05555-7640 > 005556 5711 JMP I 5511 /05556-5711 /I 005557 2311 ISZ 5511 /05557-2311 SI 005560 5711 JMP I 5511 /05560-5711 /I 005561 0000 AND 0000 /05561-0000 @@ 005562 0000 AND 0000 /05562-0000 @@ 005563 2130 ISZ 0130 /05563-2130 QX 005564 7776 SPA SNA SZL CLA OSR HLT /05564-7776 ?> 005565 7252 CLA CMA RTR /05565-7252 :* 005566 7300 CLA CLL /05566-7300 ;@ 005567 0377 AND 5577 /05567-0377 C? 005570 0100 AND 0100 /05570-0100 A@ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-127 005571 0160 AND 0160 /05571-0160 A0 005572 0017 AND 0017 /05572-0017 @O 005573 5600 JMP I 5400 /05573-5600 .@ 005574 7201 CLA IAC /05574-7201 :A 005575 7275 7275 /05575-7275 := /JMS 0031 /05576-4031 Y /JMP I 0051 /05577-5451 ,) 005576 4031 005577 5451 5600 PAGE 005600 6552 TST13, FPICL /05600-6552 5* 005601 6561 FMODE /05601-6561 51 005602 1075 TAD C15 /05602-1075 H= 005603 3220 DCA 5620 /05603-3220 ZP 005604 4465 JMS I SETENV /05604-4465 $5 005605 0013 13 /05605-0013 @K TSTNUM 005606 5706 REC13 /05606-5706 /F CODE 005607 4277 MCOD13 /05607-4277 "? MCODE 005610 0000 0000 /05610-0000 @@ FPCF 005611 7401 7401 /05611-7401 <A FPCADR 005612 2410 2410 /05612-2410 TH FPCOM 005613 4000 4000 /05613-4000 @ FPEP 005614 5200 JMP TST13 /05614-5200 *@ ERR 005615 6556 FPRST /05615-6556 5. 005616 3147 DCA STATUS /05616-3147 Y' 005617 4453 JMS I CKSTAT /05617-4453 $+ 005620 0015 LOCKO EPMOD FPRUN /05620-0015 @M 005621 5200 JMP 5600 /05621-5200 *@ 005622 4454 JMS I RDREGS /05622-4454 $, 005623 4000 JMS 0000 /05623-4000 @ 005624 5200 JMP 5600 /05624-5200 *@ 005625 4436 JMS I XOPT /05625-4436 $^ 005626 0101 AND C200 /05626-0101 AA 005627 7650 SNA CLA /05627-7650 >( 005630 5233 JMP 5633 /05630-5233 *[ 005631 4457 JMS I ABORT /05631-4457 $/ 005632 5201 JMP 5601 /05632-5201 *A 005633 2145 ISZ CNTSTP /05633-2145 Q% 005634 7410 SKP /05634-7410 <H 005635 4460 JMS I NORUN /05635-4460 $0 005636 6565 FMDO /05636-6565 55 005637 1145 TAD CNTSTP /05637-1145 I% 005640 1377 TAD 5777 /05640-1377 K? 005641 7440 SZA /05641-7440 < 005642 7410 SKP /05642-7410 <H 005643 5302 JMP 5702 /05643-5302 +B 005644 1376 TAD 5776 /05644-1376 K> 005645 7440 SZA /05645-7440 < 005646 7410 SKP /05646-7410 <H 005647 5303 JMP 5703 /05647-5303 +C 005650 1113 TAD CM13 /05650-1113 IK 005651 7440 SZA /05651-7440 < 005652 7410 SKP /05652-7410 <H 005653 5302 JMP 5702 /05653-5302 +B /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-128 005654 1376 TAD 5776 /05654-1376 K> 005655 7440 SZA /05655-7440 < 005656 7410 SKP /05656-7410 <H 005657 5303 JMP 5703 /05657-5303 +C 005660 1113 TAD CM13 /05660-1113 IK 005661 7440 SZA /05661-7440 < 005662 7410 SKP /05662-7410 <H 005663 5302 JMP 5702 /05663-5302 +B 005664 1376 TAD 5776 /05664-1376 K> 005665 7440 SZA /05665-7440 < 005666 7410 SKP /05666-7410 <H 005667 5303 JMP 5703 /05667-5303 +C 005670 1375 TAD 5775 /05670-1375 K= 005671 7440 SZA /05671-7440 < 005672 7410 SKP /05672-7410 <H 005673 5302 JMP 5702 /05673-5302 +B 005674 1374 TAD 5774 /05674-1374 K< 005675 7640 SZA CLA /05675-7640 > 005676 7410 SKP /05676-7410 <H 005677 5301 JMP 5701 /05677-5301 +A 005700 5215 JMP 5615 /05700-5215 *M 005701 1105 TAD C2000 /05701-1105 IE 005702 1107 TAD C4000 /05702-1107 IG 005703 1073 TAD C11 /05703-1073 H; 005704 3220 DCA 5620 /05704-3220 ZP 005705 5215 JMP 5615 /05705-5215 *M 005706 7200 REC13, CLA /05706-7200 :@ 005707 4453 JMS I CKSTAT /05707-4453 $+ 005710 6010 DPMOD TRPEX LOCKO /05710-6010 0H 005711 5200 JMP 5600 /05711-5200 *@ 005712 4461 JMS I CHKAPT /05712-4461 $1 005713 0000 AND 0000 /05713-0000 @@ 005714 7424 SNL OSR /05714-7424 <T 005715 7213 CLA IAC RTR /05715-7213 :K 005716 7223 CLA CML IAC BSW /05716-7223 :S 005717 7422 SNL HLT /05717-7422 <R 005720 0000 AND 0000 /05720-0000 @@ 005721 0000 AND 0000 /05721-0000 @@ 005722 0000 AND 0000 /05722-0000 @@ 005723 0004 AND 0004 /05723-0004 @D 005724 0005 AND 0005 /05724-0005 @E 005725 0006 AND 0006 /05725-0006 @F 005726 5200 JMP 5600 /05726-5200 *@ 005727 4462 JMS I CHKIDX /05727-4462 $2 005730 0002 AND 0002 /05730-0002 @B 005731 0000 AND 0000 /05731-0000 @@ 005732 0000 AND 0000 /05732-0000 @@ 005733 0000 AND 0000 /05733-0000 @@ 005734 0000 AND 0000 /05734-0000 @@ 005735 0000 AND 0000 /05735-0000 @@ 005736 0000 AND 0000 /05736-0000 @@ 005737 0000 AND 0000 /05737-0000 @@ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-129 005740 5200 JMP 5600 /05740-5200 *@ 005741 1123 TAD NALL /05741-1123 IS 005742 7640 SZA CLA /05742-7640 > 005743 5200 JMP 5600 /05743-5200 *@ 005744 5773 JMP I 5773 /05744-5773 /; 005745 0054 AND 0054 /05745-0054 @, 005746 0055 AND 0055 /05746-0055 @- 005747 0056 AND 0056 /05747-0056 @. 005750 0057 AND 0057 /05750-0057 @/ 005751 0000 AND 0000 /05751-0000 @@ 005752 0060 AND 0060 /05752-0060 @0 005753 0061 AND 0061 /05753-0061 @1 005754 0062 AND 0062 /05754-0062 @2 005755 0000 AND 0000 /05755-0000 @@ 005756 4303 JMS 5703 /05756-4303 #C 005757 1704 TAD I 5704 /05757-1704 OD 005760 0575 AND I 0175 /05760-0575 E= 005761 0000 AND 0000 /05761-0000 @@ 005762 2003 ISZ 0003 /05762-2003 PC 005763 7500 SMA /05763-7500 =@ 005764 0403 AND I 0003 /05764-0403 DC 005765 7500 SMA /05765-7500 =@ 005766 7774 SPA SNA SZL CLA OSR /05766-7774 ?< 005767 2415 ISZ I 0015 /05767-2415 TM 005770 5256 JMP 5656 /05770-5256 *. 005771 3746 DCA I 5746 /05771-3746 _& 005772 4147 JMS 0147 /05772-4147 !' 005773 6000 SKON /05773-6000 0@ 005774 7736 SPA SZL CLA OSR HLT /05774-7736 ?^ 005775 7764 SMA SZA SNL CLA OSR /05775-7764 ?4 005776 7773 MQA MQL CLA DPIC /05776-7773 ?; 005777 7762 SMA SZA SNL CLA HLT /05777-7762 ?2 6000 PAGE 006000 6552 TST14, FPICL /06000-6552 5* 006001 1272 TAD 6072 /06001-1272 J: 006002 3122 DCA TSTNUM /06002-3122 YR 006003 1377 TAD (REC14 /06003-1377 K? 006004 3156 DCA CODE /06004-3156 Y. 006005 3145 DCA CNTSTP /06005-3145 Y% 006006 1376 TAD (MCOD14 /06006-1376 K> 006007 3157 DCA MCODE /06007-3157 Y/ 006010 1075 TAD C15 /06010-1075 H= 006011 3233 DCA 6033 /06011-3233 Z[ 006012 4451 JMS I PREAPT /06012-4451 $) 006013 1375 TAD 6175 /06013-1375 K= 006014 3774 DCA I 6174 /06014-3774 _< 006015 1165 TAD C2410 /06015-1165 I5 006016 6553 FPCOM /06016-6553 5+ 006017 7330 CLA CLL CML RAR /06017-7330 ;X 006020 6567 FPEP /06020-6567 57 006021 6561 FMODE /06021-6561 51 006022 1146 TAD APTP /06022-1146 I& 006023 6555 FPST /06023-6555 5- /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-130 006024 7410 SKP /06024-7410 <H 006025 5230 JMP 6030 /06025-5230 *X 006026 4452 JMS I SKFGPR /06026-4452 $* 006027 5200 JMP 6000 /06027-5200 *@ 006030 6556 FPRST /06030-6556 5. 006031 3147 DCA STATUS /06031-3147 Y' 006032 4453 JMS I CKSTAT /06032-4453 $+ 006033 0015 LOCKO EPMOD FPRUN /06033-0015 @M 006034 5200 JMP 6000 /06034-5200 *@ 006035 4454 JMS I RDREGS /06035-4454 $, 006036 4000 JMS 0000 /06036-4000 @ 006037 5200 JMP 6000 /06037-5200 *@ 006040 4436 JMS I XOPT /06040-4436 $^ 006041 0101 AND C200 /06041-0101 AA 006042 7650 SNA CLA /06042-7650 >( 006043 5246 JMP 6046 /06043-5246 *& 006044 4457 JMS I ABORT /06044-4457 $/ 006045 5201 JMP 6001 /06045-5201 *A 006046 2145 ISZ CNTSTP /06046-2145 Q% 006047 7410 SKP /06047-7410 <H 006050 4460 JMS I NORUN /06050-4460 $0 006051 6565 FMDO /06051-6565 55 006052 1145 TAD CNTSTP /06052-1145 I% 006053 1373 TAD 6173 /06053-1373 K; 006054 7440 SZA /06054-7440 < 006055 7410 SKP /06055-7410 <H 006056 5264 JMP 6064 /06056-5264 *4 006057 1372 TAD 6172 /06057-1372 K: 006060 7640 SZA CLA /06060-7640 > 006061 7410 SKP /06061-7410 <H 006062 5265 JMP 6065 /06062-5265 *5 006063 5230 JMP 6030 /06063-5230 *X 006064 1371 TAD 6171 /06064-1371 K9 006065 1075 TAD C15 /06065-1075 H= 006066 3233 DCA 6033 /06066-3233 Z[ 006067 5230 JMP 6030 /06067-5230 *X 006070 7200 REC14, CLA /06070-7200 :@ 006071 4453 JMS I CKSTAT /06071-4453 $+ 006072 0014 LOCKO EPMOD /06072-0014 @L 006073 5200 JMP 6000 /06073-5200 *@ 006074 4461 JMS I CHKAPT /06074-4461 $1 006075 0000 AND 0000 /06075-0000 @@ 006076 6122 6122 /06076-6122 1R 006077 7213 CLA IAC RTR /06077-7213 :K 006100 7223 CLA CML IAC BSW /06100-7223 :S 006101 6126 6126 /06101-6126 1V 006102 0001 AND 0001 /06102-0001 @A 006103 3700 DCA I 6100 /06103-3700 _@ 006104 0000 AND 0000 /06104-0000 @@ 006105 7777 MQA MQL CLA SAM /06105-7777 ?? 006106 0000 AND 0000 /06106-0000 @@ 006107 7777 MQA MQL CLA SAM /06107-7777 ?? 006110 5200 JMP 6000 /06110-5200 *@ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-131 006111 1123 TAD NALL /06111-1123 IS 006112 7640 SZA CLA /06112-7640 > 006113 5200 JMP 6000 /06113-5200 *@ 006114 5770 JMP I 6170 /06114-5770 /8 006115 0006 AND 0006 /06115-0006 @F 006116 1603 TAD I 6003 /06116-1603 NC 006117 0050 AND 0050 /06117-0050 @( 006120 1604 TAD I 6004 /06120-1604 ND 006121 0000 AND 0000 /06121-0000 @@ 006122 2777 ISZ I 6177 /06122-2777 W? 006123 7777 MQA MQL CLA SAM /06123-7777 ?? 006124 0001 AND 0001 /06124-0001 @A 006125 0675 AND I 6075 /06125-0675 F= 006126 7776 SPA SNA SZL CLA OSR HLT /06126-7776 ?> 006127 7777 MQA MQL CLA SAM /06127-7777 ?? 006130 0000 AND 0000 /06130-0000 @@ 006131 7777 MQA MQL CLA SAM /06131-7777 ?? 006132 5440 JMP I 0040 /06132-5440 , 006133 6171 RBM /06133-6171 19 006134 0000 AND 0000 /06134-0000 @@ 006135 6144 6144 /06135-6144 1$ 006136 6147 6147 /06136-6147 1' 006137 6151 6151 /06137-6151 1) 006140 6153 6153 /06140-6153 1+ 006141 6156 6156 /06141-6156 1. 006142 6162 6162 /06142-6162 12 006143 6165 6165 /06143-6165 15 006144 2301 ISZ 6101 /06144-2301 SA 006145 2425 ISZ I 0025 /06145-2425 TU 006146 2200 ISZ 6000 /06146-2200 R@ 006147 2325 ISZ 6125 /06147-2325 SU 006150 1600 TAD I 6000 /06150-1600 N@ 006151 1517 TAD I 0117 /06151-1517 MO 006152 1600 TAD I 6000 /06152-1600 N@ 006153 2425 ISZ I 0025 /06153-2425 TU 006154 0523 AND I 0123 /06154-0523 ES 006155 0000 AND 0000 /06155-0000 @@ 006156 2705 ISZ I 6105 /06156-2705 WE 006157 0416 AND I 0016 /06157-0416 DN 006160 0523 AND I 0123 /06160-0523 ES 006161 0000 AND 0000 /06161-0000 @@ 006162 2410 ISZ I 0010 /06162-2410 TH 006163 2522 ISZ I 0122 /06163-2522 UR 006164 2300 ISZ 6100 /06164-2300 S@ 006165 0622 AND I 6022 /06165-0622 FR 006166 1100 TAD 0100 /06166-1100 I@ 006167 4302 JMS 6102 /06167-4302 #B 006170 6200 LXM /06170-6200 2@ 006171 3774 DCA I 6174 /06171-3774 _< 006172 7751 MQA CLA DPSZ /06172-7751 ?) 006173 7764 SMA SZA SNL CLA OSR /06173-7764 ?4 006174 7201 CLA IAC /06174-7201 :A 006175 6115 6115 /06175-6115 1M /JMS I 6025 /06176-4625 &U /6070 /06177-6070 08 /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-132 006176 4625 006177 6070 6200 PAGE 006200 6552 TST15, FPICL /06200-6552 5* 006201 1075 TAD C15 /06201-1075 H= 006202 3122 DCA TSTNUM /06202-3122 YR 006203 1377 TAD (REC15 /06203-1377 K? 006204 3156 DCA CODE /06204-3156 Y. 006205 3145 DCA CNTSTP /06205-3145 Y% 006206 1376 TAD (MCOD15 /06206-1376 K> 006207 3157 DCA MCODE /06207-3157 Y/ 006210 1075 TAD C15 /06210-1075 H= 006211 3253 DCA 6253 /06211-3253 Z+ 006212 4451 JMS I PREAPT /06212-4451 $) 006213 1375 TAD 6375 /06213-1375 K= 006214 3013 DCA 0013 /06214-3013 XK 006215 1374 TAD 6374 /06215-1374 K< 006216 3014 DCA 0014 /06216-3014 XL 006217 1414 TAD I 0014 /06217-1414 LL 006220 3413 DCA I 0013 /06220-3413 \K 006221 1414 TAD I 0014 /06221-1414 LL 006222 3413 DCA I 0013 /06222-3413 \K 006223 1414 TAD I 0014 /06223-1414 LL 006224 3413 DCA I 0013 /06224-3413 \K 006225 1414 TAD I 0014 /06225-1414 LL 006226 3413 DCA I 0013 /06226-3413 \K 006227 1414 TAD I 0014 /06227-1414 LL 006230 3413 DCA I 0013 /06230-3413 \K 006231 1414 TAD I 0014 /06231-1414 LL 006232 3413 DCA I 0013 /06232-3413 \K 006233 1373 TAD 6373 /06233-1373 K; 006234 3772 DCA I 6372 /06234-3772 _: 006235 1165 TAD C2410 /06235-1165 I5 006236 6553 FPCOM /06236-6553 5+ 006237 7330 CLA CLL CML RAR /06237-7330 ;X 006240 6567 FPEP /06240-6567 57 006241 6561 FMODE /06241-6561 51 006242 1146 TAD APTP /06242-1146 I& 006243 6555 FPST /06243-6555 5- 006244 7410 SKP /06244-7410 <H 006245 5250 JMP 6250 /06245-5250 *( 006246 4452 JMS I SKFGPR /06246-4452 $* 006247 5200 JMP 6200 /06247-5200 *@ 006250 6556 FPRST /06250-6556 5. 006251 3147 DCA STATUS /06251-3147 Y' 006252 4453 JMS I CKSTAT /06252-4453 $+ 006253 0015 LOCKO EPMOD FPRUN /06253-0015 @M 006254 5200 JMP 6200 /06254-5200 *@ 006255 4454 JMS I RDREGS /06255-4454 $, 006256 4000 JMS 0000 /06256-4000 @ 006257 5200 JMP 6200 /06257-5200 *@ 006260 4436 JMS I XOPT /06260-4436 $^ 006261 0101 AND C200 /06261-0101 AA 006262 7650 SNA CLA /06262-7650 >( /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-133 006263 5266 JMP 6266 /06263-5266 *6 006264 4457 JMS I ABORT /06264-4457 $/ 006265 5201 JMP 6201 /06265-5201 *A 006266 2145 ISZ CNTSTP /06266-2145 Q% 006267 7410 SKP /06267-7410 <H 006270 4460 JMS I NORUN /06270-4460 $0 006271 6565 FMDO /06271-6565 55 006272 1145 TAD CNTSTP /06272-1145 I% 006273 1371 TAD 6371 /06273-1371 K9 006274 7440 SZA /06274-7440 < 006275 7410 SKP /06275-7410 <H 006276 5310 JMP 6310 /06276-5310 +H 006277 1370 TAD 6370 /06277-1370 K8 006300 7440 SZA /06300-7440 < 006301 7410 SKP /06301-7410 <H 006302 5313 JMP 6313 /06302-5313 +K 006303 1367 TAD 6367 /06303-1367 K7 006304 7640 SZA CLA /06304-7640 > 006305 7410 SKP /06305-7410 <H 006306 5312 JMP 6312 /06306-5312 +J 006307 5250 JMP 6250 /06307-5250 *( 006310 1366 TAD 6366 /06310-1366 K6 006311 7410 SKP /06311-7410 <H 006312 1365 TAD 6365 /06312-1365 K5 006313 1075 TAD C15 /06313-1075 H= 006314 3253 DCA 6253 /06314-3253 Z+ 006315 5250 JMP 6250 /06315-5250 *( 006316 7200 REC15, CLA /06316-7200 :@ 006317 4453 JMS I CKSTAT /06317-4453 $+ 006320 0414 DIVEX LOCKO EPMOD /06320-0414 DL 006321 5200 JMP 6200 /06321-5200 *@ 006322 4461 JMS I CHKAPT /06322-4461 $1 006323 0000 AND 0000 /06323-0000 @@ 006324 7433 MQL SHL /06324-7433 <[ 006325 7213 CLA IAC RTR /06325-7213 :K 006326 7223 CLA CML IAC BSW /06326-7223 :S 006327 7244 CLA CMA RAL /06327-7244 :$ 006330 3777 DCA I 6377 /06330-3777 _? 006331 3777 DCA I 6377 /06331-3777 _? 006332 7777 MQA MQL CLA SAM /06332-7777 ?? 006333 4040 JMS 0040 /06333-4040 006334 0505 AND I 0105 /06334-0505 EE 006335 6060 6060 /06335-6060 00 006336 5200 JMP 6200 /06336-5200 *@ 006337 4462 JMS I CHKIDX /06337-4462 $2 006340 0000 AND 0000 /06340-0000 @@ 006341 0000 AND 0000 /06341-0000 @@ 006342 0000 AND 0000 /06342-0000 @@ 006343 0000 AND 0000 /06343-0000 @@ 006344 0000 AND 0000 /06344-0000 @@ 006345 0000 AND 0000 /06345-0000 @@ 006346 0000 AND 0000 /06346-0000 @@ /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-134 006347 0000 AND 0000 /06347-0000 @@ 006350 5200 JMP 6200 /06350-5200 *@ 006351 1123 TAD NALL /06351-1123 IS 006352 7640 SZA CLA /06352-7640 > 006353 5200 JMP 6200 /06353-5200 *@ 006354 5764 JMP I 6364 /06354-5764 /4 006355 7766 SMA SZA SNL CLA OSR HLT /06355-7766 ?6 006356 7271 CLA CMA CML IAC RAR /06356-7271 :9 006357 5557 JMP I 0157 /06357-5557 -/ 006360 6446 6446 /06360-6446 4& 006361 6437 6437 /06361-6437 4_ 006362 6451 6451 /06362-6451 4) 006363 6443 6443 /06363-6443 4# 006364 6400 6400 /06364-6400 4@ 006365 0400 AND I 0000 /06365-0400 D@ 006366 0020 AND 0020 /06366-0020 @P 006367 7756 SPA SNA CLA OSR HLT /06367-7756 ?. 006370 7745 MQA CLA DST /06370-7745 ?% 006371 7727 MQA MQL CLA DVI /06371-7727 ?W 006372 7201 CLA IAC /06372-7201 :A 006373 7426 SNL OSR HLT /06373-7426 <V 006374 7353 CLA CLL CMA IAC RTR /06374-7353 ;+ 006375 7212 CLA RTR /06375-7212 :J /JMP 6237 /06376-5237 *_ /CIF 114 /06377-6316 3N 006376 5237 006377 6316 6400 PAGE 006400 6552 TST16, FPICL /06400-6552 5* 006401 1377 TAD (16 /06401-1377 K? 006402 3122 DCA TSTNUM /06402-3122 YR 006403 7000 NOP /06403-7000 8@ 006404 3156 DCA CODE /06404-3156 Y. 006405 3145 DCA CNTSTP /06405-3145 Y% 006406 1376 TAD (MCOD16 /06406-1376 K> 006407 3157 DCA MCODE /06407-3157 Y/ 006410 1375 TAD 6575 /06410-1375 K= 006411 3233 DCA 6433 /06411-3233 Z[ 006412 4451 JMS I PREAPT /06412-4451 $) 006413 1374 TAD 6574 /06413-1374 K< 006414 3773 DCA I 6573 /06414-3773 _; 006415 1166 TAD C2760 /06415-1166 I6 006416 6553 FPCOM /06416-6553 5+ 006417 7330 CLA CLL CML RAR /06417-7330 ;X 006420 6567 FPEP /06420-6567 57 006421 6561 FMODE /06421-6561 51 006422 1146 TAD APTP /06422-1146 I& 006423 6555 FPST /06423-6555 5- 006424 7410 SKP /06424-7410 <H 006425 5230 JMP 6430 /06425-5230 *X 006426 4452 JMS I SKFGPR /06426-4452 $* 006427 5200 JMP 6400 /06427-5200 *@ 006430 6556 FPRST /06430-6556 5. /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-135 006431 3147 DCA STATUS /06431-3147 Y' 006432 4453 JMS I CKSTAT /06432-4453 $+ 006433 0005 EPMOD FPRUN /06433-0005 @E 006434 5200 JMP 6400 /06434-5200 *@ 006435 4454 JMS I RDREGS /06435-4454 $, 006436 4000 JMS 0000 /06436-4000 @ 006437 5200 JMP 6400 /06437-5200 *@ 006440 4436 JMS I XOPT /06440-4436 $^ 006441 0101 AND C200 /06441-0101 AA 006442 7650 SNA CLA /06442-7650 >( 006443 5246 JMP 6446 /06443-5246 *& 006444 4457 JMS I ABORT /06444-4457 $/ 006445 5201 JMP 6401 /06445-5201 *A 006446 2145 ISZ CNTSTP /06446-2145 Q% 006447 7410 SKP /06447-7410 <H 006450 4460 JMS I NORUN /06450-4460 $0 006451 6565 FMDO /06451-6565 55 006452 1145 TAD CNTSTP /06452-1145 I% 006453 1372 TAD 6572 /06453-1372 K: 006454 7440 SZA /06454-7440 < 006455 7410 SKP /06455-7410 <H 006456 5264 JMP 6464 /06456-5264 *4 006457 1371 TAD 6571 /06457-1371 K9 006460 7640 SZA CLA /06460-7640 > 006461 7410 SKP /06461-7410 <H 006462 5267 JMP 6467 /06462-5267 *7 006463 5230 JMP 6430 /06463-5230 *X 006464 1370 TAD 6570 /06464-1370 K8 006465 3233 DCA 6433 /06465-3233 Z[ 006466 5230 JMP 6430 /06466-5230 *X 006467 6552 FPICL /06467-6552 5* 006470 6556 FPRST /06470-6556 5. 006471 3147 DCA STATUS /06471-3147 Y' 006472 4453 JMS I CKSTAT /06472-4453 $+ 006473 0000 0000 /06473-0000 @@ 006474 5200 JMP 6400 /06474-5200 *@ 006475 4461 JMS I CHKAPT /06475-4461 $1 006476 0000 AND 0000 /06476-0000 @@ 006477 6530 6530 /06477-6530 5X 006500 7213 CLA IAC RTR /06500-7213 :K 006501 7223 CLA CML IAC BSW /06501-7223 :S 006502 0000 AND 0000 /06502-0000 @@ 006503 7777 MQA MQL CLA SAM /06503-7777 ?? 006504 5555 JMP I 0155 /06504-5555 -- 006505 5555 JMP I 0155 /06505-5555 -- 006506 0077 AND 0077 /06506-0077 @? 006507 0770 AND I 6570 /06507-0770 G8 006510 7700 SMA CLA /06510-7700 ?@ 006511 5200 JMP 6400 /06511-5200 *@ 006512 4462 JMS I CHKIDX /06512-4462 $2 006513 0000 AND 0000 /06513-0000 @@ 006514 5555 JMP I 0155 /06514-5555 -- /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-136 006515 5555 JMP I 0155 /06515-5555 -- 006516 0000 AND 0000 /06516-0000 @@ 006517 0000 AND 0000 /06517-0000 @@ 006520 0000 AND 0000 /06520-0000 @@ 006521 0000 AND 0000 /06521-0000 @@ 006522 0000 AND 0000 /06522-0000 @@ 006523 5200 JMP 6400 /06523-5200 *@ 006524 1123 TAD NALL /06524-1123 IS 006525 7640 SZA CLA /06525-7640 > 006526 5200 JMP 6400 /06526-5200 *@ 006527 5767 JMP I 6567 /06527-5767 /7 006530 0400 AND I 0000 /06530-0400 D@ 006531 6542 6542 /06531-6542 5" 006532 6400 6400 /06532-6400 4@ 006533 7205 CLA IAC RAL /06533-7205 :E 006534 0006 AND 0006 /06534-0006 @F 006535 1110 TAD 0110 /06535-1110 IH 006536 7213 CLA IAC RTR /06536-7213 :K 006537 6200 LXM /06537-6200 2@ 006540 4400 JMS I 0000 /06540-4400 $@ 006541 6550 FFST /06541-6550 5( 006542 7777 MQA MQL CLA SAM /06542-7777 ?? 006543 5555 JMP I 0155 /06543-5555 -- 006544 5555 JMP I 0155 /06544-5555 -- 006545 0077 AND 0077 /06545-0077 @? 006546 0770 AND I 6570 /06546-0770 G8 006547 7700 SMA CLA /06547-7700 ?@ 006550 2020 ISZ 0020 /06550-2020 PP 006551 2020 ISZ 0020 /06551-2020 PP 006552 0000 AND 0000 /06552-0000 @@ 006553 0002 AND 0002 /0FPCOM-0002 @B 006554 0005 AND 0005 /06554-0005 @E 006555 0000 AND 0000 /06555-0000 @@ 006556 0003 AND 0003 /06556-0003 @C 006557 0006 AND 0006 /06557-0006 @F 006560 0001 AND 0001 /06560-0001 @A 006561 0004 AND 0004 /06561-0004 @D 006562 0006 AND 0006 /06562-0006 @F 006563 4523 JMS I 0123 /06563-4523 %S 006564 2520 ISZ I 0120 /06564-2520 UP 006565 0522 AND I 0122 /06565-0522 ER 006566 2305 ISZ 6505 /06566-2305 SE 006567 6600 6600 /06567-6600 6@ 006570 4001 JMS 0001 /06570-4001 A 006571 7672 SNA SZL CLA HLT /06571-7672 >: 006572 7754 SPA SNA CLA OSR /06572-7754 ?, 006573 7201 CLA IAC /06573-7201 :A 006574 6530 6530 /06574-6530 5X 006575 0005 AND 0005 /06575-0005 @E /JMP I 0147 /06576-5547 -' /AND 0016 /06577-0016 @N 006576 5547 006577 0016 /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-137 6600 PAGE 006600 6552 TST17, FPICL /06600-6552 5* 006601 1377 TAD (17 /06601-1377 K? 006602 3122 DCA TSTNUM /06602-3122 YR 006603 3145 DCA CNTSTP /06603-3145 Y% 006604 1376 TAD (REC17 /06604-1376 K> 006605 3156 DCA CODE /06605-3156 Y. 006606 4451 JMS I PREAPT /06606-4451 $) 006607 1375 TAD 6775 /06607-1375 K= 006610 3774 DCA I 6774 /06610-3774 _< 006611 1165 TAD C2410 /06611-1165 I5 006612 6553 FPCOM /06612-6553 5+ 006613 7330 CLA CLL CML RAR /06613-7330 ;X 006614 6567 FPEP /06614-6567 57 006615 1146 TAD APTP /06615-1146 I& 006616 6555 FPST /06616-6555 5- 006617 5222 JMP 6622 /06617-5222 *R 006620 6554 FPHLT /06620-6554 5, 006621 5224 JMP 6624 /06621-5224 *T 006622 4452 JMS I SKFGPR /06622-4452 $* 006623 5200 JMP 6600 /06623-5200 *@ 006624 3140 DCA 0140 /06624-3140 Y 006625 2140 ISZ 0140 /06625-2140 Q 006626 5225 JMP 6625 /06626-5225 *U 006627 4452 JMS I SKFGPR /06627-4452 $* 006630 5200 JMP 6600 /06630-5200 *@ 006631 7200 REC17, CLA /06631-7200 :@ 006632 4453 JMS I CKSTAT /06632-4453 $+ 006633 0014 LOCKO EPMOD /06633-0014 @L 006634 5200 JMP 6600 /06634-5200 *@ 006635 4461 JMS I CHKAPT /06635-4461 $1 006636 0000 AND 0000 /06636-0000 @@ 006637 3747 DCA I 6747 /06637-3747 _' 006640 7213 CLA IAC RTR /06640-7213 :K 006641 7223 CLA CML IAC BSW /06641-7223 :S 006642 3746 DCA I 6746 /06642-3746 _& 006643 0001 AND 0001 /06643-0001 @A 006644 0002 AND 0002 /06644-0002 @B 006645 0003 AND 0003 /06645-0003 @C 006646 0004 AND 0004 /06646-0004 @D 006647 0005 AND 0005 /06647-0005 @E 006650 0006 AND 0006 /06650-0006 @F 006651 5200 JMP 6600 /06651-5200 *@ 006652 6552 FPICL /06652-6552 5* 006653 4465 JMS I SETENV /06653-4465 $5 006654 0017 0017 /06654-0017 @O TSTNUM 006655 6677 6677 /06655-6677 6? CODE 006656 0000 0000 /06656-0000 @@ MCODE 006657 0000 0000 /06657-0000 @@ FPCF 006660 7443 7443 /06660-7443 <# FPCADR 006661 2410 2410 /06661-2410 TH FPCOM 006662 4000 4000 /06662-4000 @ FPEP /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-138 006663 5252 JMP 6652 /06663-5252 ** ERR 006664 6556 FPRST /06664-6556 5. 006665 3147 DCA STATUS /06665-3147 Y' 006666 4453 JMS I CKSTAT /06666-4453 $+ 006667 0017 LOCKO EPMOD FPPAU FPRUN /06667-0017 @O 006670 5252 JMP 6652 /06670-5252 ** 006671 6554 FPHLT /06671-6554 5, 006672 3140 DCA 0140 /06672-3140 Y 006673 2140 ISZ 0140 /06673-2140 Q 006674 5273 JMP 6673 /06674-5273 *; 006675 4452 JMS I SKFGPR /06675-4452 $* 006676 5252 JMP 6652 /06676-5252 ** 006677 7200 CLA /06677-7200 :@ 006700 4453 JMS I CKSTAT /06700-4453 $+ 006701 1014 HLTEX LOCKO EPMOD /06701-1014 HL 006702 5252 JMP 6652 /06702-5252 ** 006703 4461 JMS I CHKAPT /06703-4461 $1 006704 0000 AND 0000 /06704-0000 @@ 006705 7443 DAD /06705-7443 <# 006706 7213 CLA IAC RTR /06706-7213 :K 006707 7223 CLA CML IAC BSW /06707-7223 :S 006710 7443 DAD /06710-7443 <# 006711 0001 AND 0001 /06711-0001 @A 006712 0002 AND 0002 /06712-0002 @B 006713 0003 AND 0003 /06713-0003 @C 006714 0004 AND 0004 /06714-0004 @D 006715 0005 AND 0005 /06715-0005 @E 006716 0006 AND 0006 /06716-0006 @F 006717 5252 JMP 6652 /06717-5252 ** 006720 6552 FPICL /06720-6552 5* 006721 1373 TAD 6773 /06721-1373 K; 006722 3156 DCA CODE /06722-3156 Y. 006723 4451 JMS I PREAPT /06723-4451 $) 006724 1372 TAD 6772 /06724-1372 K: 006725 3774 DCA I 6774 /06725-3774 _< 006726 1165 TAD C2410 /06726-1165 I5 006727 7330 CLA CLL CML RAR /06727-7330 ;X 006730 6567 FPEP /06730-6567 57 006731 1146 TAD APTP /06731-1146 I& 006732 6555 FPST /06732-6555 5- 006733 5336 JMP 6736 /06733-5336 +^ 006734 6554 FPHLT /06734-6554 5, 006735 5340 JMP 6740 /06735-5340 + 006736 4452 JMS I SKFGPR /06736-4452 $* 006737 5320 JMP 6720 /06737-5320 +P 006740 3140 DCA 0140 /06740-3140 Y 006741 2140 ISZ 0140 /06741-2140 Q 006742 5341 JMP 6741 /06742-5341 +! 006743 4452 JMS I SKFGPR /06743-4452 $* 006744 5320 JMP 6720 /06744-5320 +P 006745 7200 CLA /06745-7200 :@ 006746 4453 JMS I CKSTAT /06746-4453 $+ 006747 1014 HLTEX LOCKO EPMOD /06747-1014 HL /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-139 006750 5320 JMP 6720 /06750-5320 +P 006751 4461 JMS I CHKAPT /06751-4461 $1 006752 0000 AND 0000 /06752-0000 @@ 006753 4323 JMS 6723 /06753-4323 #S 006754 7213 CLA IAC RTR /06754-7213 :K 006755 7223 CLA CML IAC BSW /06755-7223 :S 006756 4322 JMS 6722 /06756-4322 #R 006757 0001 AND 0001 /06757-0001 @A 006760 7775 MQA MQL CLA DCM /06760-7775 ?= 006761 7774 SPA SNA SZL CLA OSR /06761-7774 ?< 006762 7773 MQA MQL CLA DPIC /06762-7773 ?; 006763 7772 SPA SNA SZL CLA HLT /06763-7772 ?: 006764 7772 SPA SNA SZL CLA HLT /06764-7772 ?: 006765 5320 JMP 6720 /06765-5320 +P 006766 5771 JMP I 6771 /06766-5771 /9 006767 2515 ISZ I C7777 /06767-2515 UM 006770 0205 AND 6605 /06770-0205 BE 006771 7000 NOP /06771-7000 8@ 006772 4322 JMS 6722 /06772-4322 #R 006773 6745 6745 /06773-6745 7% 006774 7201 CLA IAC /06774-7201 :A 006775 3746 DCA I 6746 /06775-3746 _& /6631 /06776-6631 6Y /AND 0017 /06777-0017 @O 006776 6631 006777 0017 7000 PAGE 007000 6552 FPICL /07000-6552 5* 007001 6554 FPHLT /07001-6554 5, 007002 4465 JMS I SETENV /07002-4465 $5 007003 0017 0017 /07003-0017 @O TSTNUM 007004 7020 7020 /07004-7020 8P CODE 007005 0000 0000 /07005-0000 @@ MCODE 007006 0000 0000 /07006-0000 @@ FPCF 007007 7433 7433 /07007-7433 <[ FPCADR 007010 2410 2410 /07010-2410 TH FPCOM 007011 4000 4000 /07011-4000 @ FPEP 007012 5200 JMP 7000 /07012-5200 *@ ERR 007013 3140 DCA 0140 /07013-3140 Y 007014 2140 ISZ 0140 /07014-2140 Q 007015 5214 JMP 7014 /07015-5214 *L 007016 4452 JMS I SKFGPR /07016-4452 $* 007017 5200 JMP 7000 /07017-5200 *@ 007020 7200 CLA /07020-7200 :@ 007021 4453 JMS I CKSTAT /07021-4453 $+ 007022 1014 HLTEX LOCKO EPMOD /07022-1014 HL 007023 5200 JMP 7000 /07023-5200 *@ 007024 4461 JMS I CHKAPT /07024-4461 $1 007025 0000 AND 0000 /07025-0000 @@ 007026 7435 MQL ASR /07026-7435 <] 007027 7213 CLA IAC RTR /07027-7213 :K /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-140 007030 7223 CLA CML IAC BSW /07030-7223 :S 007031 0111 AND 0111 /07031-0111 AI 007032 4000 JMS 0000 /07032-4000 @ 007033 5777 JMP I 7177 /07033-5777 /? 007034 7700 SMA CLA /07034-7700 ?@ 007035 7755 7755 /07035-7755 ?- 007036 7765 MQA MQL CLA DST /07036-7765 ?5 007037 7766 SMA SZA SNL CLA OSR HLT /07037-7766 ?6 007040 5200 JMP 7000 /07040-5200 *@ 007041 6554 FPHLT /07041-6554 5, 007042 4465 JMS I SETENV /07042-4465 $5 007043 0017 0017 /07043-0017 @O TSTNUM 007044 7060 7060 /07044-7060 80 CODE 007045 0000 0000 /07045-0000 @@ MCODE 007046 0000 0000 /07046-0000 @@ FPCF 007047 7435 7435 /07047-7435 <] FPCADR 007050 2410 2410 /07050-2410 TH FPCOM 007051 0000 0000 /07051-0000 @@ FPEP 007052 5241 JMP 7041 /07052-5241 *! ERR 007053 3140 DCA 0140 /07053-3140 Y 007054 2140 ISZ 0140 /07054-2140 Q 007055 5254 JMP 7054 /07055-5254 *, 007056 4452 JMS I SKFGPR /07056-4452 $* 007057 5241 JMP 7041 /07057-5241 *! 007060 7200 CLA /07060-7200 :@ 007061 4453 JMS I CKSTAT /07061-4453 $+ 007062 1010 HLTEX LOCKO /07062-1010 HH 007063 5200 JMP 7000 /07063-5200 *@ 007064 4461 JMS I CHKAPT /07064-4461 $1 007065 0000 AND 0000 /07065-0000 @@ 007066 7437 MQL LSR /07066-7437 <_ 007067 7213 CLA IAC RTR /07067-7213 :K 007070 7223 CLA CML IAC BSW /07070-7223 :S 007071 0103 AND 0103 /07071-0103 AC 007072 0200 AND 7000 /07072-0200 B@ 007073 0260 AND 7060 /07073-0260 B0 007074 0277 AND 7077 /07074-0277 B? 007075 0004 AND 0004 /07075-0004 @D 007076 0005 AND 0005 /07076-0005 @E 007077 0006 AND 0006 /07077-0006 @F 007100 5200 JMP 7000 /07100-5200 *@ 007101 6554 FPHLT /07101-6554 5, 007102 4465 JMS I SETENV /07102-4465 $5 007103 0017 AND 0017 /07103-0017 @O TSTNUM 007104 7120 CLL CML /07104-7120 9P CODE 007105 0000 AND 0000 /07105-0000 @@ MCODE 007106 0000 AND 0000 /07106-0000 @@ FPCF 007107 7437 MQL LSR /07107-7437 <_ FPCADR 007110 6400 6400 /07110-6400 4@ FPCOM 007111 0000 AND 0000 /07111-0000 @@ FPEP 007112 5301 JMP 7101 /07112-5301 +A 007113 3140 DCA 0140 /07113-3140 Y /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-141 007114 2140 ISZ 0140 /07114-2140 Q 007115 5314 JMP 7114 /07115-5314 +L 007116 4452 JMS I SKFGPR /07116-4452 $* 007117 5301 JMP 7101 /07117-5301 +A 007120 7200 CLA /07120-7200 :@ 007121 4453 JMS I CKSTAT /07121-4453 $+ 007122 5000 DPMOD HLTEX /07122-5000 (@ 007123 5301 JMP 7101 /07123-5301 +A 007124 4461 JMS I CHKAPT /07124-4461 $1 007125 0000 AND 0000 /07125-0000 @@ 007126 7441 SCA /07126-7441 <! 007127 7213 CLA IAC RTR /07127-7213 :K 007130 7223 CLA CML IAC BSW /07130-7223 :S 007131 0071 AND 0071 /07131-0071 @9 007132 0001 AND 0001 /07132-0001 @A 007133 0004 AND 0004 /07133-0004 @D 007134 0005 AND 0005 /07134-0005 @E 007135 0004 AND 0004 /07135-0004 @D 007136 0005 AND 0005 /07136-0005 @E 007137 0006 AND 0006 /07137-0006 @F 007140 5301 JMP 7101 /07140-5301 +A 007141 1123 TAD NALL /07141-1123 IS 007142 7640 SZA CLA /07142-7640 > 007143 5777 JMP I (TST17 /07143-5777 /? 007144 5345 JMP TST20 /07144-5345 +% 007145 7200 TST20, CLA /07145-7200 :@ 007146 6213 CIF CDF 10 /07146-6213 2K 007147 5776 JMP I (TST20X /07147-5776 /> 007150 7200 TST21, CLA /07150-7200 :@ 007151 6213 CIF CDF 10 /07151-6213 2K 007152 5775 JMP I (TST21X /07152-5775 /= 007153 7200 TST22, CLA /07153-7200 :@ 007154 6213 CIF CDF 10 /07154-6213 2K 007155 5774 JMP I (TST22X /07155-5774 /< 007156 7200 TST23, CLA /07156-7200 :@ 007157 6213 CIF CDF 10 /07157-6213 2K 007160 5773 JMP I (TST23X /07160-5773 /; 007161 4437 TST24, JMS I MSG /07161-4437 $_ 007162 6737 MTST24 /07162-6737 7_ 007163 6213 CIF CDF 10 /07163-6213 2K 007164 5765 JMP I .+1 /07164-5765 /5 007165 1400 TST24X /07165-1400 L@ 007166 7345 CLA CLL CMA IAC RAL /07166-7345 ;% 007167 7521 MQA MQL /07167-7521 =Q 007170 7360 CLA CLL CMA CML /07170-7360 ;0 007171 0277 AND 7077 /07171-0277 B? 007172 7335 7335 /07172-7335 ;] /TAD 7000 /07173-1200 J@ /TAD 0000 /07174-1000 H@ /AND I 7000 /07175-0600 F@ /AND 7000 /07176-0200 B@ /6600 /07177-6600 6@ 007173 1200 /DJFPAB PAL8-V50X 01-OCT-90 PAGE 1-142 007174 1000 007175 0600 007176 0200